如何用vb做excel的二次开发

EXCEL有自带好饥的开发扩展的命令

VBA（visual basic for applications）

可以大大拓展EXCEL的功能，如果接口开放还可以实此袜春现与其他软件之间的交互

VBA的语言基础是VB，和VB略有相似之处，如果有森耐VB基础比较好学

VBA是基础EXCEL的，需要已EXCEL为载体，而不是以系统作为载体

所以需要借助第三方软件进行封装，常用VB6.0来进行封装

可以封装成exe,也可以是dll动态链！

1.首先打开excel，选择功能区的视图-宏-录制宏

2.然后在d出框中填写名称及其说明，便于多个宏时进行区分。点击确定。

3.再次点击视图-宏，选择查看宏

4.选择你刚刚添加的宏，点击编辑，就会进入vb编辑器页面

5.在编辑器中编写你想要的功能，（例如截图中的A列第一行填槐毁并写1，A列第二行填写2），保余伍存并关闭。

6.回到excel界面后，视图-宏-停止录制。这时候宏已经制作完成。

7.和第三布一样，选择视图-宏-查看宏，这时候你刚刚制作完成的宏就显示在第一个，点击执行，就会出现效果（A列第一行填写1，A列第二行填写2）。

完成。

vb的语法请自行搜索，或者留言铅迹学习交流~

Dim XlApp as New Excel.Application '生成新的Excel实例。这是关键的步亏晌信聚。

新的Excel实例可以不受系统中其他Excel进程的影响。

还有、退出时释放Excel的Application哦。谨团就是QUIT方法执行后加上设置为Nothing。

修改如下：

Private Sub Commandaa_Click()

Dim xlApp As New Excel.Application

'这下面这个就不要销轮了。需要在工程中引用Excel对象。

'Set xlApp = CreateObject("Excel.Application")

With xlApp

.Workbooks.Open CommonDialog9.FileName

.Workbooks(CommonDialog9.FileTitle).Sheets("输配系统气量日报").Cells(1, 1) = "165641649496161654984945"

.Workbooks(CommonDialog9.FileTitle).SaveAs "F:\ddddd.xls"

.Workbooks("ddddd.xls").close

.Quit

End With

MsgBox "您的报表已生成，并放置在F盘下，谢谢使用本软件", , "友情提示"

set xlApp=nothing

End Sub

---