Excel-VBA-Datei nicht Gefunden obwohl Datei vorhanden

Habe ich unten geschrieben Stück code, um den Zugriff auf eine Datei, und kopieren Sie die Inhalte von einer Datei in die andere. Ich benutze excel 2007.

Sub copypaste()

  Dim strFolder As String
  Dim strFileName As String
  Dim wb As Workbook
  strFolder = "C:\Users\user\Desktop\sample\"
  strFileName = Dir(strFolder & "*.xlsx")
  Dim eRow
  Dim a As Variant
  Dim b As Variant
  Do While Len(strFileName) > 0
  **Set wb = Workbooks.Open(strFileName)**
  a = Cells(7, 7)
  b = Range("D11:F11")
  ActiveWorkbook.Close
      Worksheets("sheet1").Cells(7, 7) = a
      Worksheets("sheet1").Cells(7, 8) = b
      strFileName = Dir
  Loop
End Sub

Obwohl die Datei in dem Ordner vorhanden ist bekomme ich die Fehlermeldung beim öffnen der Datei. Während im debug-Modus die variable strFileName enthält den Namen der Datei aber immer noch die Datei nicht öffnen. Ich bin immer den Fehler in Zeile "Set wb = Workbooks.Open(strFileName)"

Dank im Voraus für Eure Hilfe!!

InformationsquelleAutor user3475262 | 2014-03-29
  1. 2

    Arbeitsmappen.Öffnen Sie benötigt den vollständigen Pfad der Arbeitsmappe. Ich vermute, Sie wollen:

    Set wb = Workbooks.Open(strFolder & strFileName)
    • Vielen Dank SilentD..das ist, was fehlte. Es funktioniert 😀
    InformationsquelleAutor
  2. 0

    Müssen Sie ersetzen Sie alle \ durch die doppelten \\ in Ihrem Pfad

    Hinzufügen oder @ vor Ihnen string.

    Es ist, weil \ ist das Zeichen für die escape-Zeichenfolgen wie \n, \s und so weiter, so dass Buchstaben nach einem \ umgewandelt wird.
    Versuchen, zu drucken, deinen Weg, du wirst sehen, was anfügen.

    BEARBEITEN

    Können auch versuchen :

    FileToOpen = Application.GetOpenFilename _
(Title:="Please choose a Report to Parse", _
FileFilter:="Report Files *.xls (*.xls),");
Set wb2 = Workbooks.Open(Filename:=FileToOpen)
    • Ich habe dieses strFolder = "C:\\Users\\user\\Desktop\\sample\\" aber immer noch die gleichen Fehler
    • Drucken Sie Ihre var strfilename, und fügen Sie Sie hier.
    • Dies ist, was strfilename enthält Rechnung.xlsx.Dies ist der name der Datei, die ich versuche zu öffnen
    • Bearbeitet meine Antwort
    • Sorry, habe ich nicht verstanden. Was meinst du mit Druck den Weg.
    • Danke Anthony für Ihre Hilfe. Der Kommentar unten von SilentD funktioniert..

    InformationsquelleAutor Anthony Raymond
  3. 0

    Als (Weg) Benutzer user496736 erklärt, Sie müssen einen vollständigen Pfad

    Aber die meisten der Zeit, die Ihr Weg wird sehr lang und umständlich zu geben, oder Sie es nicht wissen im Voraus, so dass die Hilfe von ActiveWorkbook.Pfad

    Beispiel mit readonly-nur zur information

    Dim Alloc_WB As Workbook

Dim FileStr As String
FileStr = ActiveWorkbook.Path & "\" & "my_file.xlsx"

'workbook should be closed at start of code. Otherwise you get an error msg asking to re-open the Workbook
Set Alloc_WB = Workbooks.Open(Filename:=FileStr, ReadOnly:=True)

'...
'Other actions here...
'...

With Alloc_WB
    .Close
End With
    InformationsquelleAutor NGI
Schreibe einen Kommentar