魚骨頭的雲端圖書館 - Powered by Discuz! Board

繁體 | 簡體

Sclub交友聊天~加入聊天室當版主

(檢舉)

新浪微博

QQ空间

Facebook

Google+

Plurk

Twitter

Line

標題: VB6 EXCEL與WORD快速撰寫程式碼方法 [打印本頁]

作者: mhfo 時間: 2013-3-21 09:12 標題: VB6 EXCEL與WORD快速撰寫程式碼方法

VB中用程序处理WORD和EXCEL的问题，我把我的经验在这里描述一下，希望对大家有帮助。关于在VB中对WORD或EXCEL进行编程处理，一般可以通过录制新宏的方法获得WORD或EXCEL中的VBA代码，然后再将代码剪贴到VB程序中去，具体执行步骤用下面的EXCEL例子说明一下：

例：我们要在A1的地方输入"姓名"，B1的地方输入"工资"，然后A2输入张三，B2输入1000，。。。，最后在A5输入合计，并在B5计算出全部工资。

1）首先打开EXCEL，选择菜单[工具]—[宏]—[录制新宏]

2）在A1格中输入：姓名；B1格中输入：工资；A2输入：张三；B2输入：1000；A3输入：李四；B3输入：1000；。。。A5输入：合计，并在B5输入：=SUM(B2:B4)

3）选择停止[宏]

4）选择菜单[工具]—[宏]—[Visual Baisic 编辑器]，这时为VBA的调试环境（几乎和VB的一样），然后打开“模块1”的代码窗口，就可以看到如下代码：

Sub 宏1()
'
' 宏1 Macro
' zhouch 记录的宏 2004-9-13
'

'
Range("A1").Select
ActiveCell.FormulaR1C1 = "姓名"
Range("B1").Select
ActiveCell.FormulaR1C1 = "工资"
Range("A2").Select
ActiveCell.FormulaR1C1 = "张三"
Range("B2").Select
ActiveCell.FormulaR1C1 = "1000"
Range("A3").Select
ActiveCell.FormulaR1C1 = "李四"
Range("B3").Select
ActiveCell.FormulaR1C1 = "2000"
Range("A4").Select
ActiveCell.FormulaR1C1 = "王五"
Range("B4").Select
ActiveCell.FormulaR1C1 = "1500"
Range("A5").Select
ActiveCell.FormulaR1C1 = "合计"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
End Sub

5）在VB中新建一个工程，加1个Command控件，并在VB的菜单[工程]—[引用]下添加引用“Microsoft Excel 9.0 Object Library”，再添加如下EXCEL调用的框架代码：

Private Sub Command1_Click()
Dim Ex As Excel.Application
Dim ExwBook As Excel.Workbook
Dim ExSheet As Excel.Worksheet
On Error Resume Next
'不带第一个参数调用 Getobject 函数将
'返回对该应用程序的实例的引用。
'如果该应用程序不在运行，则会产生错误。
Set Ex = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear '如果发生错误则要清除 Err 对象。
Set Ex = CreateObject("Excel.Application") '应用程序不在运行，则建立
End If
On Error GoTo 0
Set ExwBook = Nothing
Set ExSheet = Nothing
Set ExwBook = Ex.Workbooks().Add
Set ExSheet = ExwBook.Worksheets("sheet1")
'执行EXCEL中的VBA代码
With Ex
'此处剪贴Excel中的代码，并在每句前加一个点

End With
'保存.xls
ExwBook.SaveAs "c:test.xls"
ExwBook.Close False
'退出excel
Ex.Quit
Set Ex = Nothing
End Sub

6）将EXCEL中的VBA代码剪贴到VB程序中，并在每句前添加1个.，就得到如下的VB程序：

Private Sub Command1_Click()
Dim Ex As Excel.Application
Dim ExwBook As Excel.Workbook
Dim ExSheet As Excel.Worksheet
On Error Resume Next
'不带第一个参数调用 Getobject 函数将
'返回对该应用程序的实例的引用。
'如果该应用程序不在运行，则会产生错误。
Set Ex = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Err.Clear '如果发生错误则要清除 Err 对象。
Set Ex = CreateObject("Excel.Application") '应用程序不在运行，则建立
End If
On Error GoTo 0
Set ExwBook = Nothing
Set ExSheet = Nothing
Set ExwBook = Ex.Workbooks().Add
Set ExSheet = ExwBook.Worksheets("sheet1")
'执行EXCEL中的VBA代码
With Ex
'此处剪贴Excel中的代码，并在每句前加一个点
.Range("A1").Select
.ActiveCell.FormulaR1C1 = "姓名"
.Range("B1").Select
.ActiveCell.FormulaR1C1 = "工资"
.Range("A2").Select
.ActiveCell.FormulaR1C1 = "张三"
.Range("B2").Select
.ActiveCell.FormulaR1C1 = "1000"
.Range("A3").Select
.ActiveCell.FormulaR1C1 = "李四"
.Range("B3").Select
.ActiveCell.FormulaR1C1 = "2000"
.Range("A4").Select
.ActiveCell.FormulaR1C1 = "王五"
.Range("B4").Select
.ActiveCell.FormulaR1C1 = "1500"
.Range("A5").Select
.ActiveCell.FormulaR1C1 = "合计"
.Range("B5").Select
.ActiveCell.FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
End With
'保存.xls
ExwBook.SaveAs "c:test.xls"
ExwBook.Close False
'退出excel
Ex.Quit
Set Ex = Nothing
End Sub

7）运行以上程序，并按“Command1”按钮，就会在C盘根目录下生成一个EXCEL文件：test.xls，打开看一下，是不是我们想要的啊？

最后再说明一下，需要其它的功能，例如插入图片、画表格线、打印报表等都可以做，你只要用上述录制宏的方法，至于EXCEL的VBA中的一些对象，以及方法属性等，可以在VBA的调试环境用VB中同样方式都可以获得帮助的（前提是完整安装了OFFICE，包括帮助），即选中后按F1键即可。

歡迎光臨魚骨頭的雲端圖書館 (http://mhfo.hotbbs.info/)