關掉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中执行。

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

相关问题

更新Excel1里的枢纽分析表，用VBA如何写

### 回答1：
你可以使用以下代码来更新Excel1中的枢纽分析表：

Sub UpdatePivotTable()
Dim pt As PivotTable
Set pt = Worksheets("Sheet1").PivotTables("PivotTable1")
pt.RefreshTable
End Sub

其中，"Sheet1"是你要更新的工作表名称，"PivotTable1"是你要更新的枢纽分析表名称。你可以根据实际情况修改这些参数。

### 回答2：
更新Excel中的数据和枢纽分析表可以使用VBA编写。下面是具体步骤：

1. 首先，打开Excel并创建一个新的宏，以便编写VBA代码。

2. 首先，使用VBA代码定义所需的变量。这些变量包括源数据范围、目标数据范围和透视图。

3. 使用Range对象来指定源数据范围。例如，你可以使用以下代码定义源数据范围：Dim sourceData As Range Set sourceData = Worksheets("Sheet1").Range("A1:C10")。

4. 定义目标数据范围，该范围将存放枢纽表的结果。例如，你可以使用以下代码定义目标数据范围：Dim targetData As Range Set targetData = Worksheets("Sheet2").Range("A1")

5. 使用PivotTableWizard方法来创建一个新的透视表。例如，你可以使用以下代码创建一个新的透视表：Dim pivotTable As PivotTable Set pivotTable = Worksheets("Sheet3").PivotTableWizard(sourceData, targetData)

6. 使用PivotFields方法选择要在透视表中使用的字段。例如，你可以使用以下代码选择要在透视表中使用的列字段：pivotTable.PivotFields("列字段").Orientation = xlColumnField

7. 使用PivotFields方法选择要在透视表中使用的行字段。例如，你可以使用以下代码选择要在透视表中使用的行字段：pivotTable.PivotFields("行字段").Orientation = xlRowField

8. 使用PivotFields方法选择要在透视表中使用的值字段。例如，你可以使用以下代码选择要在透视表中使用的值字段：pivotTable.PivotFields("值字段").Orientation = xlDataField

9. 使用PivotTableRefresh方法刷新透视表以获取最新的数据。例如，你可以使用以下代码刷新透视表：pivotTable.PivotTableRefresh

10. 最后，保存并关闭VBA编辑器。

这些是更新Excel中的枢纽分析表的一般步骤。你可以根据具体需要编写更详细的代码来实现你的目标。

### 回答3：
要使用VBA来更新Excel中的数据透视表，可以按照以下步骤进行编写：

首先，我们需要确定要更新的数据透视表所在的工作表和名称。假设数据透视表位于名为"Sheet1"的工作表上，并且其名称为"透视表1"。

接下来，在VBA中创建一个过程来更新数据透视表。可以使用以下代码示例：

Sub UpdatePivotTable()
Dim ws As Worksheet
Dim pt As PivotTable

'设置对应的工作表对象
Set ws = ThisWorkbook.Worksheets("Sheet1")

'设置对应的数据透视表对象
Set pt = ws.PivotTables("透视表1")

'更新数据透视表
pt.RefreshTable

End Sub

在以上代码中，我们首先定义了一个Worksheet对象"ws"来表示"Sheet1"工作表。然后，我们定义了一个PivotTable对象"pt"来表示"透视表1"。然后，我们使用pt.RefreshTable方法来更新数据透视表。

最后，我们可以在VBA编辑器中运行该过程来更新数据透视表。我们可以通过按下"F5"键或点击运行按钮来执行这段代码。

这样就可以通过VBA来更新Excel中的数据透视表了。

用EXCEL VBA程序写一个写文本文件的程序

好的，我了解了你的要求，关于你的问题，你可以按照以下步骤进行编写：

1.打开Excel VBA编辑器，在新的模块中编写下面的程序：

Sub writeFile()
Dim strFilePath As String
Dim strText As String
Dim fileNo As Integer

strFilePath = "C:\Users\John\Desktop\MyText.txt" '文件路径
strText = "Hello World!" '写入文本内容

fileNo = FreeFile '获取可用的文件句柄

Open strFilePath For Output As #fileNo '打开文件
Write #fileNo, strText '写入文本内容
Close #fileNo '关闭文件
End Sub

2.在上面的程序中，你需要修改两个变量值，即strFilePath和strText，分别表示文件路径和写入文本内容，可以根据你的实际需求进行修改。

3.保存该VBA程序，然后在Excel表格中运行即可，文本内容将被写入到指定的文本文件中。

希望对你有帮助！