title image


Smiley Re: Makro Automatisch beim öffen von Excel
Hallo, Danke für die Infos habe es jetzt folgendermaßen gemacht.



1. Task erstellt welcher eine vbs ausführt.

2. VBS:



'***********************************************************************************

'XLS TO TXT

'Date: 05/10/2006

'Script export a xls file to txt file.

'In our case the script extract a xls file to a separate Vertical line file

'**********************************************************************************



Const FOR_APPENDING = 8



txtfile = "preisliste" & FormatDateTime(Date(),2) & ".txt"



Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objTextStream = objFSO.OpenTextFile(txtfile, FOR_APPENDING, True)





Set xlApp = CreateObject("excel.application")

Set xlWkb = xlApp.Workbooks.Open("")



xlApp.visible = true



strMappenpfad = xlApp.ActiveWorkbook.FullName

strMappenpfad = Replace(strMappenpfad, ".xls", ".csv")

strTrennzeichen = "|"



Set Bereich = xlApp.ActiveSheet.UsedRange



Bereich.Rows(1).Delete

Bereich.Columns(4).Delete

Bereich.Columns(4).Insert

Bereich.Columns(4).Insert

Bereich.Columns(4).Insert

Bereich.Columns(4).Insert



For Each zeile In Bereich.Rows



For Each Zelle In zeile.Cells



If InStr(1, Zelle.Text, strTrennzeichen) > 0 Then

'Zellen, die ein Trennzeichen beinhalten in Anführungsstriche setzen

strTemp = strTemp & """" & CStr(Zelle.Text) & """" & strTrennzeichen

Else

strTemp = strTemp & CStr(Zelle.Text) & strTrennzeichen

End If



Next

If Right(strTemp, 1) = strTrennzeichen Then strTemp = Left(strTemp, Len(strTemp) - 1)

objTextStream.WriteLine strTemp

'Call artikelsuchen(strTemp, strTrennzeichen, strSpaltefrei)

strTemp = ""

Next



Set Bereich = Nothing

xlApp.ActiveWorkbook.Saved = True

xlApp.ActiveWorkbook.Close





Set xlWkb = Nothing

Set xlApp = Nothing



WScript.Quit

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: