如何将VB中sheet1里面的内容导出到一个新生成的exce...-vb生成excel文件,vb如何往excel文件写数

Private Sub Command2_Click()
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = True

'设置活动工作表
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")
objSheet.Cells(1, 1) = "mather" '对单元格e799bee5baa6e997aee7ad94e4b893e5b19e336赋值
objWorkBook.SaveAs "D:\aa.xls" '保存
objWorkBook.Close
objExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing
End Sub

补充： 在“工程”-引用 -中要选择 Microsoft Excel 11.0【或其他数值】 Object Library

你想干啥，没明白你的意思
dim excel as excel.application
dim workbook as excel.workbook
…度…
dim path as string
path=路径知道+文件内名容
workbook.saveas (path)
workbook.close
excel.quite

文件名：text1.text
Open App.Path & "\" & text1.Text & ".xls" For Binary As #11
Close #11
加上这句看看。