VB代码如何实现调用EXCEL的宏命令

Question

我用代码能保存一个新建的EXCEL表格(导出的数据),然后要对该表格进行编辑时发现里面的单元格格式不对,只有有数据的地方格式是正确的,但我如果要手动添加记录的话就得重新设置单元格格式,有没有高手指导一下..最好能贴代码出来..加注释的..目的,新建一个EXCEL表格,在建立的时候就调用外部宏命令将其格式化,然后再保存到指定位置....高手指点下...在线等

Answer 1

你的问题实际上不是调用宏，而是在 VB 中用 VBA 代码设置 Sheet 格式。不知道你的格式要求，很难写代码。另外，也没有必要去写。你直接在你的 Excel 中选菜单“工具”—“宏”—“录制新宏”。然后按照你的要求设置好格式，关闭记录器。
选菜单“工具”—“宏”—“宏”，在弹出对话框中选中你录制的宏，单击“编辑”按钮。将代码复制出来，粘贴到你的 VB 代码中。当然你要在前后补上打开和关闭相关对象的代码。一般来说，稍加调试就可以使用。

Answer 2

能简单点举个例子吗???我不知道怎么调用VBA代码

Answer 3

一个调用 Excel 宏的例子：VB 窗体代码：
      Option Explicit      Private Sub Command1_Click()
       Dim oExcelApp As Object       ' Create a reference to the currently running excel application
       Set oExcelApp = GetObject(, "Excel.application")
       ' Make the Excel Application Visible.
       oExcelApp.Visible = True
       ' Run the excel procedure
       oExcelApp.run "proc", "David", 30
      End SubExcel 中的宏：
Sub Proc(sParam1 As String, iParam2 As Integer)
        MsgBox sParam1 & " is " & iParam2 & " Years Old"
End Sub