我想使用宏打開檔案名，但無法打開。雖然打開檔案的目的是將檔案從“N2”重命名為“North-2”，將“N3”重命名為“North-3”。此外，將兩個excel檔案中第一列名稱的區域列重命名為“N2”到“North-2”和“N3”到“North-3”
但是我被困在第 1 步，無法使用宏打開檔案。另外，如果您可以為我提供滿足此要求的作業代碼，那么我將非常感謝您。
您可以從以下路徑下載檔案：
https://chandoo.org/forum/threads/open-file-using-macro.47347/
Sub FileOpen_Macro()
Dim FileName(0 To 1) As String
FileName(0) = "N2.xlsx"
FileName(1) = "N3.xlsx"
For i = 0 To 1
Workbook.Open FileName:="G:\Team Learning\vbapractice\Dunning\Export\" & FileName(i)
Next i
End Sub
uj5u.com熱心網友回復：
使用Workbooks.Open而不是Workbook.Open。
Sub FileOpen_Macro()
Dim FileName(0 To 1) As String
FileName(0) = "N2.xlsx"
FileName(1) = "N3.xlsx"
For i = 0 To 1
Workbooks.Open FileName:="G:\Team Learning\vbapractice\Dunning\Export\" & FileName(i)
Next i
End Sub
uj5u.com熱心網友回復：
有一個用于重命名檔案的內置 VBA 命令名稱（只要它位于本地或映射驅動器上，如您的示例；對于 UNC 參考，您可以使用 FileSystemObject）：
Option Explicit
Sub FileOpen_Macro()
Dim FileName(0 To 1) As String
Const MyPath As String = "G:\Team Learning\vbapractice\Dunning\Export\"
Dim strNewName As String, i As Long
FileName(0) = "N2.xlsx"
FileName(1) = "N3.xlsx"
For i = 0 To 1
strNewName = Replace(FileName(i), "N", "North-")
Name MyPath & FileName(i) As MyPath & strNewName
With Workbooks.Open(FileName:=MyPath & strNewName)
' Replace the cell A1 of the first sheet.
.Worksheets(1).Cells(1, 1) = Replace(.Worksheets(1).Cells(1, 1), "N", "North-")
' and Save & close
.Close SaveChanges:=True
End With
Next i
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/391299.html