Question

vba 如何创建一个文件

如果 c:\123 这个文件夹下没有名为 shuju 的excel表
则创建一个名为 shuju 的excel
如果有了 则结束

求教这段VBA 该怎么写

Answer 1

    Dim Exl As Excel.Application
    If Dir("C:\123\" & "shuju.xls") = "" Then
        Set Exl = CreateObject("Excel.Application")
        Exl.Workbooks.Add
        ThisWorkbook.SaveAs "C:\123\" & "shuju.xls"
    Else
        Exit Sub
    End If

追问

能中文解释一下吗