vba新建一个excel工作薄并向里面写数据

在VBA (Visual Basic for Applications) 中，你可以通过宏来创建一个新的Excel工作簿并写入数据。以下是简单的步骤：

1. **打开VBA编辑器**:
首先，在Excel中按下 `Alt + F11` 或者点击 "Developer" 菜单，选择 "Visual Basic" 来打开VBA编辑器。

2. **创建新模块**:
在VBA编辑器窗口中，如果你看到的是 "Project Explorer"，右键点击你想插入代码的工作簿名，然后选择 "Insert" -> "Module" 创建一个新的模块。

3. **编写代码**:
使用以下代码作为示例，将替换 `<your_data>` 为你想要输入的具体数据（例如数组或字符串）：

   Sub CreateAndWriteData()
       Dim wb As Workbook
       Set wb = Workbooks.Add ' 创建新的Excel工作簿

       ' 写入数据到A1单元格
       wb.Worksheets(1).Range("A1").Value = "<your_data>"

       ' 可能需要设置其他行或列的数据
       ' wb.Worksheets(1).Range("B2:D5").Value = '<your_other_data>'
       
       ' 保存工作簿
       wb.SaveAs Filename:="C:\YourFolder\NewWorkbook.xlsx", FileFormat:=xlOpenXMLWorkbook ' 替换为你的保存路径和文件名

       ' 关闭工作簿
       wb.Close SaveChanges:=True
   End Sub

4. **运行宏**:
按下 `F5` 运行 `CreateAndWriteData` 宏，将在指定位置创建新的工作簿并写入数据。