Question

VB代码 如何新建保存EXCEL 文件

用VB6.0生成的EXE文件成功测试就行。
点击按钮，执行以下操作：
1.用VB代码 新建EXCEL 文件
2.并在A1单元格输入“新建成功”
3.获取当前新建的工作表名称
4.并且保存至 当前路径下 重命名为 "测试.xls"

环境要求：
用VB6.0生成的EXE文件成功测试就行。
要求提供源码。

谢谢各位老师大神了。
我的QQ邮箱281874515@qq.com

Answer 1

1、打开excel软件，先点击“开发工具”，再点击“查看代码”，打开VBA窗口。

2、在新打开的窗体的代码编辑区复制粘贴以下代码，并点击绿色小三角按钮。

代码：

Sub 创建新文件()

    Dim excelApp, excelWB As Object

    Dim savePath, saveName As String

    Set excelApp = CreateObject("Excel.Application")

    Set excelWB = excelApp.Workbooks.Add

    savePath = "C:\Users\w\Desktop\VBA测试文件夹\"          '新建文件保存的路径

    saveName = "VBA创建的文件.xlsx"                         '新建文件的名称

    excelWB.SaveAs savePath & saveName

    excelApp.Quit

    End Sub

3、除点击绿色小三角按钮外，还可以在excel文件数据窗口点击“开发工具”中的“宏”按钮，然后点击“执行”按钮，即可执行。

4、执行完之后，我们可去相应路径下查看，发现VBA已自动创建了一个新的excel文件。

Answer 2

测试成功，原码：

Dim xlapp As Excel.Application 'Excel对象
Dim xlbook As Excel.Workbook '工作簿
Dim xlsheet As Excel.Worksheet '工作表
Dim xlrange As Excel.range
Private Sub Command1_Click()
Set xlapp = CreateObject("excel.application") '第一层
Set xlbook = xlapp.Workbooks.Add
xlapp.Visible = True
xlbook.sheets(1).range("a1") = "新建成功"
xlbook.SaveAs App.Path & "/测试.xls"
xlbook.Close
End Sub

Answer 3

ActiveWorkbook．SaveAs　Filename：＝　＿　　　　　　　　＆quot；C：＆＃92；Documents　and　Settings＆＃92；Owner＆＃92；桌面＆＃92；学习＆quot；　＆amp；　date　＆amp；　＆quot；．xls＆quot；652　FileFormat：＝xlNormal　＿　　　　　　　　Password：＝＆quot；＆quot；ej　WriteResPassword：＝＆quot；＆quot；173　ReadOnlyRecommended：＝False，　＿　　　　　　　　CreateBackup：＝False