格式化循环中选定单元格的数据类型

Question

我正在尝试使用 VBA 更改所选单元格的数据类型，但我当前的代码不起作用。我正在遍历一个目录中的多个 Excel 文件，但似乎当前代码要么没有打开工作簿，要么最后保存了更改。

我想打开每个 Excel 文件，更改两个选定单元格的数据类型，然后保存更改。 这是我现在拥有的代码：

Sub Formatting()
Dim MyFolder As String, MyFile As String


MyFolder = "C:\Users\Documents\Files"
Application.ScreenUpdating = False

MyFile = Dir(MyFolder)

Do While MyFile <> ""
    Workbooks.Open fileName:=MyFolder & "\" & MyFile

    Range("G4").NumberFormat = "0.00"
    Range("E4").NumberFormat = "m/d/yyyy"

    Workbooks(MyFile).Save
    MyFile = Dir
Loop

Application.ScreenUpdating = True

End Sub

Answer 1

将工作簿对象保存到一个变量中，然后将其与ActiveSheet.Range 一起使用。

Dim wb As Workbook
Do While MyFile <> ""

    Debug.Print MyFolder & "\" & MyFile

    Set wb = Workbooks.Open(FileName:=MyFolder & "\" & MyFile)
    wb.Activesheet.Range("G4").NumberFormat = "0.00"
    wb.Activesheet.Range("E4").NumberFormat = "m/d/yyyy"
    wb.Close SaveChanges:=True
    MyFile = Dir
Loop

_{注意：如果有多个工作表，则无论哪个处于活动状态，都会获得更改。如果有更好的方法来识别工作表，请使用它而不是 ActiveSheet。}