Hallo,
ich habe 1 Programm, das 1 textdatei in excel öffnen, gesehen habe.
Mit dem Programm wird 1 new Fenster geöffnet aber will das nicht.
Möchte gern das in meinem aktuellen Fenster öffnen
das sieht so aus
Sub Add()
Dim stropeningdirectory As String
Dim strstoragedirectory As String
Dim strfile As String
Dim strTyp As String
Dim strfilename As String
Dim strName As String
strName = "_extracted"
strTyp = "*.txt"
Application.ScreenUpdating = False
stropeningdirectory = "Openingdirectory"
strstoragedirectory = "storagedirectory"
strfilename = Dir(stropeningdirectory + strTyp)
Do While strfilename ""
MsgBox ("Found File : " + strfilename)
Workbooks.OpenText Filename:=(stropeningdirectory + strfilename), _
DataType:=xlDelimited, Space:=True
ActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalView
ActiveWorkbook.SaveAs Filename:=strstoragedirectory + strfilename + ".xlsm", FileFormat:=52, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
'ActiveWorkbook.Close
strfilename = Dir
Loop
Application.ScreenUpdating = True
Statt Workbooks.OpenText zu benutzen möchte ich ger the textdoc in the selden mapp
wie schaffe ich das?
Gruß