Re: Slouceni bas, vba, vbs (VB editor) ?

From: Plastr st. <plastr (zavinac)>
Date: 20. 07. 2005, 17:20 CEST
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.cz
Received 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