Tabellenblattcode importieren
chrissi92
ich möchte einer Arbeitsmappe in Tabelle1 eine Code importieren,
Wie muß ich die TXT Datei ("TagCode.txt") abspeichern?
Mit dem Editor funktioniert es nicht, mit Text (Tabstopp-getrennt) wird der Code zwar eingelesen,
doch Alle " werden doppelt erstellt.
Wie muß ich die Textdatei abspeichern.
Danke, Gruß Nina
Sub Code_Einlesen()
sPath = ThisWorkbook.Path & "\"
With Workbooks("Tag.xlsx")
.Activate
ActiveWorkbook.VBProject.VBComponents("Tabelle1").CodeModule.AddFromFile (sPath & "TagCode.txt") _
_
End With
End Sub
Anzeige