Excel VBA - 無法找到運行時錯誤1004文件

Question

在我的程序的一部分中，我想通過VBA打開現有的Excel文件，以修改它並操作數據。

'Declaration des variables d'objects Excel 
     Dim wb As Workbook 
     Dim ws As Worksheet 
     Dim Fname As String 
     'Declaration des variables de calcul 
     Dim a As Double 
     Dim numimpact, nummatrix, debut, fin, e, n As Long 
     Dim i As Boolean 

     'Initialisation des variables 
     i = True 
     a = 0 
     e = 1 
     numimpact = 1 
     nummatrix = 1 
     debut = 2 
     n = 1000 
     fin = debut + n 
     'Boucle de lecture de tous les fichiers Excel 
     Do While i = True 
      'Test et incrementation des fichiers Excel 
      If numimpact < 7 Then 
       'Ouverture fichiers 
       Fname = "D:\mmLaurencon\Desktop\NL\Test\CFRP1\" 
       Set wb = Workbooks.Open(Fname & "CFRP1-" & nummatrix & "-" & numimpact & ".xlsm") 
       'Set wb = Workbooks.Open("D:\mmLaurencon\Desktop\NL\Test\CFRP 1\CFRP1-1-" & numimpact) 
       Set ws = wb.Worksheets(1) 
        'Parcourir colonne B 
        Do While Cells(e, 2).Value <> "" 
         For Each e In Columns(2) 
          Cells(fin, 3).Value = Application.Sum(Cells(debut, 2).Value, Cells(fin, 2).Value)/n 
          debut = debut + 1 
          fin = fin + 1 
          e = e + 1 
          'save the file 
          ActiveWorkbook.SaveAs Filename:= _ 
          "D:\mmLaurencon\Desktop\NL\Test\CFRP " & nummatrix & "\CFRP1-1-" & numimpact & ".xlsm", _ 
          FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
          'close the file 
          wb.Close 
         Next 
         numimpact = numimpact + 1 
        Loop 
      ElseIf numimpact = 7 Then 
       nummatrix = nummatrix + 1 
       numimpact = 1 
      ElseIf nummatrix = 10 Then 
       i = False 
      End If 

     Loop 

我做了這個代碼，但無法找到一個運行時錯誤1004的文件出現在導線Set wb = Workbooks.Open (Fname & "CFRP1-" & nummatrix & "-" & numimpact & ".xlsm")。我不明白爲什麼，因爲我指出了正確的路徑和文件。我嘗試了另一種方法來執行此操作Set wb = Workbooks.Open("D:\mmLaurencon\Desktop\NL\Test\CFRP 1\CFRP1-1-" & numimpact)，但出現新的運行時錯誤1004，文檔可能是隻讀或加密的。

你有什麼想錯了嗎？先謝謝你！

Answer 1

此行Set wb = Workbooks.Open(Fname & "CFRP1-" & nummatrix & "-" & numimpact & ".xlsm")正在嘗試打開文件D:\mmLaurencon\Desktop\NL\Test\CFRP1\CFRP1-1-1.xlsm，與第二次嘗試Set wb = Workbooks.Open("D:\mmLaurencon\Desktop\NL\Test\CFRP 1\CFRP1-1-" & numimpact)完全不同。

第二次嘗試缺少文件擴展名，並且文件路徑不同。文件路徑在這一點上有所不同D:\mmLaurencon\Desktop\NL\Test\CFRP1與D:\mmLaurencon\Desktop\NL\Test\CFRP 1

我假設這兩個嘗試都應該打開同一個文件？您需要更正文件路徑 - 我不確定哪個是正確的。