D盤下如果有excel1，則打開EXCEL1,如果沒有則離開，用VBA怎麼表達

可以使用以下VBA代码来实现此功能：

Sub OpenExcel()

Dim filePath As String
filePath = "D:\excel1.xlsx"

If Dir(filePath) <> "" Then
Workbooks.Open filePath
Else
Exit Sub
End If

End Sub

以上代码首先定义了一个文件路径变量，然后使用Dir函数判断该路径下是否存在excel1.xlsx文件。如果存在，则打开该文件，否则退出程序。

相关问题

VBA 点击按钮打开弹窗让用户选择一个excel 文件，如果没有选择则停止运行

好的，请稍等片刻。

（几秒钟后）

对于这个问题，我可以尝试给你提供一个解决方案。你可以在 VBA 代码中使用 FileDialog 对象来打开一个文件选择对话框，然后让用户选择一个 Excel 文件。如果用户没有选择文件，可以使用 End 语句来停止程序的运行。下面是一个简单的示例代码：

Sub OpenExcelFile()
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        .AllowMultiSelect = False
        .Title = "请选择一个 Excel 文件"
        .Filters.Clear
        .Filters.Add "Excel 文件", "*.xlsx,*.xls"
        If .Show = True Then
            Workbooks.Open .SelectedItems(1)
        Else
            End
        End If
    End With
End Sub

你可以将此代码复制到你正在编写的 VBA 项目中，然后将其关联到一个按钮的 Click 事件上。当用户单击按钮时，这段代码将会执行，并打开一个文件选择对话框，让用户选择一个Excel文件。如果用户没有选择文件，则程序将会停止运行。

關掉D盤下的EXCEL1.用發VBA 怎麼寫

我可以帮您解决关掉D盘下的Excel的问题。您可以尝试以下VBA代码：

Sub CloseExcel()
Dim objExcel As Object
Set objExcel = GetObject("D:\Excel1.xlsx") '这里输入Excel文档的全路径及文件名
objExcel.Application.Quit
Set objExcel = Nothing
End Sub

请注意，以上代码需要在Excel工作表的Visual Basic Editor中执行。

如果您有其他问题，可以继续向我提问。