Outlook2002 i Excel2002 pouzivaji ten samy VB 6.3. Ale samozrejme, ze v Excelu mam jeste navic Microsoft Script Editor 10.0, a tam nejsou stejne prikazy, jako v tom VB 6.3 :-( Takze co mi nasnima Excel do makra, a jakz takz se ten "zdrojak" naucim editovat, ve *.vbs samo ze tak nefunguje. Ale to asi proto, ze to je MS script editor, a ne VB ? Ty texty maker jsou (hlavne ten Excelovsky) delsi: 1.makro Outlook (to Tvoje): ------------cut------------ Sub Liefervorschau_WCZ(it As MailItem) For Each att In it.Attachments att.SaveAsFile "C:\WTT\Liefervorschau_WCZ\Liefervorschau_WCZ.txt" Next End Sub --------end cut---(5 lines)--------- 2.VBSscript SpusteniExcelu (ne uplne dokonceny): ------------cut------------ Option Explicit Dim Liefervorschau_WCZ Dim Data Set Liefervorschau_WCZ = WScript.CreateObject ("Excel.Application") Liefervorschau_WCZ.Visible = true Set Data = Liefervorschau_WCZ.Workbooks.Add 'Nyni tedy by melo byt to Excel makro 'Nyni budou data ulozena Data.SaveAs ("C:\WTT\Liefervorschau_WCZ\Liefervorschau_WCZ.xls") 'SaveChanges:=True ??? Aby se to pri prepisovani neptalo, ale to mi nefunguje jak v Excelu 'Nebo napred Kill ten stary? 'Nyni vymazat zdrojovy txt soubor - teprve to zkousim :-) Kill "C:\WTT\Liefervorschau_WCZ\Liefervorschau_WCZ.txt" 'Nyni zavrit Excel aplikaci 'Nyni by to mel Outlook poslat dale na emalovou adresu napr. "plastr@post.cz" --------end cut---(15 lines i s pozn.)--------- 3.makro Excel: ------------cut------------ Sub Makro_LiefervorschauWCZ() ' ' Makro_LiefervorschauWCZ Makro ' Makro zaznamenané 10.2.2005, Plastr ' ' ActiveWindow.Close SaveChanges:=False ChDir "C:\WTT\Liefervorschau_WCZ" Workbooks.OpenText Filename:= _ "C:\WTT\Liefervorschau_WCZ\Liefervorschau_WCZ.txt", Origin:=xlWindows, _ StartRow:=2, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(8, _ 2), Array(24, 2), Array(44, 4), Array(56, 2), Array(67, 2), Array(76, 2), Array(79, 9)), _ TrailingMinusNumbers:=True Columns("A:A").ColumnWidth = 9 Columns("A:G").Select Columns("A:G").EntireColumn.AutoFit Rows("3:3").Select Selection.Delete Shift:=xlUp Range("A2").Select ActiveWindow.FreezePanes = True ActiveWindow.FreezePanes = False Range("A3").Select ActiveWindow.FreezePanes = True Columns("A:A").Select With Selection .HorizontalAlignment = xlRight .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("A:B").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("E:F").Select With Selection .HorizontalAlignment = xlRight .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("E:F").Select Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _ ReplaceFormat:=False Selection.NumberFormat = "0" Range("A1").Select Columns("E:F").Select Selection.NumberFormat = "0.000" Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=True, SearchFormat:=False, _ ReplaceFormat:=False Range("A1").Select Columns("E:F").EntireColumn.AutoFit Range("A1").Select With Selection .HorizontalAlignment = xlRight .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("B1").Select With Selection .HorizontalAlignment = xlLeft .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("C1").Select ActiveWindow.SmallScroll Down:=-6 Columns("A:A").Select Selection.Insert Shift:=xlToRight Range("A2").Select ActiveCell.FormulaR1C1 = "Poz" Columns("A:A").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Range("A3").Select ActiveCell.FormulaR1C1 = "1" Range("A4").Select ActiveCell.FormulaR1C1 = "2" Range("A3:A4").Select Selection.AutoFill Destination:=Range("A3:A100"), Type:=xlFillDefault Range("A3:A100").Select Range("A3").Select Columns("A:A").Select Columns("A:A").EntireColumn.AutoFit Range("I2").Select ActiveCell.FormulaR1C1 = "|" Range("J3").Select ActiveCell.FormulaR1C1 = "=RC[-3]-RC[-4]" Range("J3").Select Selection.NumberFormat = "0.00" Selection.NumberFormat = "0.0" Selection.AutoFill Destination:=Range("J3:J100"), Type:=xlFillDefault Range("J3:J100").Select Range("J2").Select ActiveCell.FormulaR1C1 = "Chybi jim:" Range("K1").Select ActiveCell.FormulaR1C1 = "Nejpozdeji" Range("K2").Select ActiveCell.FormulaR1C1 = "odeslat:" Range("J1:K2").Select Range("J2").Activate With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("K:K").Select Selection.NumberFormat = "dd/mm/yy;@" Columns("I:K").Select Columns("I:K").EntireColumn.AutoFit Columns("J:K").Select Selection.Font.ColorIndex = 7 Range("K2").Select Range("J3").Select ActiveCell.FormulaR1C1 = "=IF((RC[-3]-RC[-4])>0,0,(RC[-3]-RC[-4]))" Range("J4").Select Range("J3").Select Selection.AutoFill Destination:=Range("J3:J100"), Type:=xlFillDefault Range("J3:J100").Select Range("A3").Select Application.Run "PERSONAL.XLS!Modul_NoDisplayZeros" Range("A1").Select End Sub --------end cut---(171 lines)--------- 5.+ ten Modul_NoDisplayZeros (3linka zezdola): --------cut------------ ActiveWindow.DisplayZeros = False --------end cut---(1 line)--------- (ja vim - jde to proste dat rovnou tam :-) (ale radili mi, ze lepsi programatori pracuji s moduly :-))) 6.Email posilam sw "PSMAil.exe" souborem AutoEmail.bat z WinPlanovacUloh: ------------cut------------ PSMail plastr@post.cz "Forecast" "C:\WTT\Liefervorschau_WCZ\Liefervorschau_WCZ.xls" --------end cut---(1 line)--------- ale to jak se spusti, vydaduje 2x potvrzeni :-( No - ted vidim, ze to se mnou a programovanim nevypada dobre :-) Posilam kdyz tak jeste ty makra jako prilohy na soukromou ... Plastr plastr@post.cz ----- PŮVODNÍ ZPRÁVA ----- Od: "AleX" <faklabrejle@gmail.com> Komu: servis-internet@nawebu.cz Předmět: Re: Slouceni bas, vba, vbs (VB editor) ? Datum: 20.7.2005 - 15:04:45 > vsetko sa to da spustit z toho otlaku .... > pred ten end sub v otlaku skopiruj tu cast z vbs od > riadku > set cojaviemco =createobject("Excel.application") > a malo by to fachcit > > IMHo jednoduchsie ked posles ten vbs-script sem ako > text a to makro v > exceli ako text a ja ti to polepim. > VBA je Visual Basic ...... for Aplication - veci sa > ukladaju(export > import) *.bas *.frm *.cls > VB je Visual Basic do verzie 6.0 sa veci ukladaju s > typi istymi > koncovkami dalej neviem ... (zmenil som programovaci > jazyk) > VBS scripty - vymysleny prvotne asi na html stranky a > ako nahrada dos comm. > znacne okliesteny nedovoluje pouzivat ocx dll (no > nedovoluje... cez > ole sa ako tak da) > > cez excel dokazes spravit tiez aplikaciu ... citat > registre zapisovat > connectovat rozne db spracovat rozne sql pripojit sa na > ftp narvat tam > vysledok, ulozit html a vsetky linky z neho odkazujuce > ..... jeeejda > tam se da vyhraaaat > viacmenej dokaze vsetko co VB (nekecam, skusal som) > sorry tiez som sa rozpisal > > > On 7/20/05, Plastr st. <plastr@post.cz> wrote: > > Plastr fcera :-) napsal: > > > > > A nebo si to mam cele (Tvoje Outlook makro + moje > > > Excel makro > > > ulozit do "moje.vbs", a to nacist jako script pro > > > "Rules & > > > alerts" ? > > > > AleX odpovedel: > > ... pozor to nie je script ale VBA... cez script by > > to bola > > vacsia haluz ... > > > > Jen bych se prosim rad zeptal, ciste pro moje > > upresneni: > > > > I kdyz vsechny ty typy jsou produktem VB (si myslim), > > ten VBA > > (asi soubor *.vba?) tedy se pusti JEN jako makro pro > > aplikace z > > MS Office? Kdezto naopak soubor *.vbs se spusti pod > > Win (tzn. > > Office nepotrebuje?). A soubor *.bas je na urovni > > *.vbs? > > > > V notepadu mi jde editovat *.vbs i *.bas v podstate > > jako text. > > Ale pokud makro Outlooku je VBA, uklada se do souboru > > projektu.otm, a ten uz notepadem editovat nejde. > > > > Nebo jde o "jiny jazyk", a prikazy ze vsech tech 3 > > typu nejdou > > kombinovat? > > > > > > Ptam se, protoze jsem take pohodlny clovek, ale ne > > programator. > > No a premyslim ted nad vetsi automatizaci - Prijde > > email s > > prilohou + ulozi se priloha na HDD (mam diky AleXovi) > > > planovani > > uloh z Win98se mi spusti *.vbs pro start Excel > > (script mam) > > > Excel provede makro (jsem si vytvoril. BTW - Excel > > umoznuje > > "snimat cinnost a ulozit ji do makra", ucim se, jak > > se to nebo to > > "naprogramuje". So piece of cake :-) Outlook tuto > > "snimat cinnost > > a ulozit ji do makra" nema, tak nevim ani jake > > prikazy v helpu > > hledat a co tam muzu pouzivat) > a nakonec mam free > > programek > > PSMail, co mi automaticky posila emailem dale v > > nastaveny cas > > onen vysledny soubor z ExcelMakra. > > > > Takze - pokud mi vse nastartuje prichozi email, a ten > > spusti > > prislusne makro, kde bych zkombinoval (cti > > prekopiroval) vsechny > > ty dalsi makra a vbs, pak bych se o to uz nemusel > > starat > > (teoreticky:-) ? > > > > A nebo to uz je mimo ramec maker - ci tohoto typu VB, > > a jit > > jedine do naprogramovani aplikace? > > > > Sorry, ze jsem se tak rozepsal ... :-) > > > > Plastr > > -- > AleX -- Revoluční vysokorychlostní INTERNET jen za nízký měsíční paušál 399 Kč. Navíc aktivace ZDARMA! Více na http://www.revolucniinternet.czReceived on Wed, 20 Jul 2005 17:20:59 +0200 (CEST)
This archive was generated by hypermail 2.1.8 : 20. 07. 2005, 17:21 CEST