Makro und Netzlaufwerk
28.10.2008 09:36:00
Frank
ich habe ein kleines Problem und hoffe, dass mir hier jemand helfen kann...
Das Makro funktioniert auf meinem eigenen Rechner (C:\) einwandfrei. Kopier ich das ganze allerdings auf ein Netzlaufwerk und änder die Pfade im Makro einfach ab, findet er eine andere Datei (in die neue Daten geschrieben werden sollen) nicht mehr.
Funktioniert:
Sub Auto_open()
Dim T_File As String
ActiveWorkbook.Worksheets(1).Activate
T_File = Range("B1").Value
'ActiveWorkbook.Worksheets(1).Activate
'Range("1:10000").Select
'Selection.ClearContents
'Range("A1").Select
Workbooks.OpenText Filename:=T_File, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", DecimalSeparator:=".", ThousandsSeparator:= _
Cells.Select
Selection.NumberFormat = "@"
Range("A1").Select
ChDir "C:\test"
ActiveWorkbook.SaveAs Filename:="C:\test\ma_abg2.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=True _
, CreateBackup:=False
bla1 = "test1.xls"
Application.DisplayAlerts = False
Rows("2:280").Select
Selection.Copy
ChDir "C:\test\"
Application.Workbooks.Open Filename:=bla1
Sheets("Teilestamm").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.SmallScroll Down:=-3
Range("A2").Select
ActiveSheet.Paste
'Sub
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
'Sub
Windows("ma_abg2.xls").Activate
ActiveWorkbook.Close
'Sub
Windows("ma_abg.xls").Activate
ActiveWorkbook.Close
End Sub
Funktioniert nicht - Datei "bla1" wird nicht gefunden:
Sub Auto_open()
Dim T_File As String
ActiveWorkbook.Worksheets(1).Activate
T_File = Range("B1").Value
'ActiveWorkbook.Worksheets(1).Activate
'Range("1:10000").Select
'Selection.ClearContents
'Range("A1").Select
Workbooks.OpenText Filename:=T_File, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", DecimalSeparator:=".", ThousandsSeparator:= _
Cells.Select
Selection.NumberFormat = "@"
Range("A1").Select
ChDir "L:\neu"
ActiveWorkbook.SaveAs Filename:="L:\neu\ma_abg2.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=True _
, CreateBackup:=False
bla1 = "test1.xls"
Application.DisplayAlerts = False
Rows("2:280").Select
Selection.Copy
ChDir "L:\neu\"
Application.Workbooks.Open Filename:=bla1 // // // // Hier wird gestoppt!
Sheets("Teilestamm").Select
ActiveWindow.ScrollRow = 4
ActiveWindow.SmallScroll Down:=-3
Range("A2").Select
ActiveSheet.Paste
'Sub
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
'Sub
Windows("ma_abg2.xls").Activate
ActiveWorkbook.Close
'Sub
Windows("ma_abg.xls").Activate
ActiveWorkbook.Close
End Sub
Bin für jeden Rat dankbar!
MfG
Anzeige