Microsoft Excel

Herbers Excel/VBA-Archiv

Makro und Netzlaufwerk | Herbers Excel-Forum


Betrifft: Makro und Netzlaufwerk von: Frank
Geschrieben am: 28.10.2008 09:36:11

Guten Morgen Zusammen,

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

  

Betrifft: AW: Makro und Netzlaufwerk von: Frank
Geschrieben am: 28.10.2008 09:42:06

Hat sich erledigt!

Ich hab einfach mal den kompletten Pfad angegeben und es funktioniert:

Application.Workbooks.Open Filename:="L:\neu\" & bla1


Grüßle