Question

怎样通过vb设定一个按钮，自动调用excel加载以前录制好宏程序，实现自动化数据操作。最好能给调用代码

想通过vb将一系列的处理整合到一个界面上，其中有些数据是通过excel宏程序进行的，现在想在vb界面上建立一些按钮以及text框，点击按钮后，vb就能调用excel宏程序，并对相关数据进行操作，获得结果。求各位大侠做过的或者有经验的给点代码指导一下。。。谢谢了

Answer 1

可以把excel表中的数据直接读入VB中，然后进行处理，处理完了后再保存回去。不知道这样能不能满足你的要求。可以参考链接数据库的方法。把EXCEL当做数据库就可以了。

给你复制一小段直接写EXCEL的代码
'以下演示了用 VB 打开excel，

Dim ExlApp As Object
Dim ExlBook As Object
Dim ExlSheet As Object

Set ExlApp = CreateObject("Excel.Application") '创建Excel的应用程序实例
Set ExlBook = ExlApp.Workbooks.Add '创建Excel的工作簿
Set ExlSheet = ExlBook.Worksheets(1) '创建Excel的一张表

ExlSheet.Range("A:G").Font.Size = 9 '设置A到G列的字号
ExlSheet.Range("A:G").Font.Name = "宋体" 'A到G列字体
ExlSheet.Range("A:A").RowHeight = 24 'A到A列行高
ExlSheet.Range("A1:G1").Font.Name = "黑体" '首行字体
ExlSheet.Range("A1:G1").Font.Bold = True '首行加粗
'ExlSheet.Rows.HorizontalAlignment = xlVAlignCenter '设置水平居中
'ExlSheet.Rows(1).RowHeight = 24 '第1行的行高=24
ExlSheet.Cells(1, 1).Value = "单　位"
'------写入EXCEL表结束-----

ExlApp.Visible = True '显示Excel

Set ExlSheet = Nothing
Set ExlBook = Nothing
Set ExlApp = Nothing

希望对你有帮助

Answer 2

Set ExlApp = CreateObject("Excel.Application")
ExlApp.Workbooks.Open “文件名”
ExlApp.Run "宏名"
ExlApp.Visible = True

Answer 3

我觉得这个问题你应该换个思路，试试把EXCEL里的宏直接写在VB里面面。代码不用改太多的。
把excel视作数据库...

追问

问题是我对vb不熟悉，对vb操作数据库很不了解，以前在excel中用vba编的宏程序，对单元格进行操作，程序已经编好了，也能用的，现在就是想方便些，将这些宏程序整合到一个模块下，代替手工操作。

追答

哎，那我也没办法啊，你说的那种我也没做过，昨天试了下，你去网上查资料，也不知道怎么能直接调用宏出来

Answer 4

百度下