作者:乔山办公网日期:
返回目录:excel表格制作
可以利用系zhidao统中的excel打开 excel文件。内
excel 本身是支持容参数的。
你可以参照。
Private Sub Command1_Click()
Dim a
a = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe c:\aa.xls", vbNormalFocus)
End Sub
首先,工程-引用 microsoft Excel 11.0 )bject Library
然后代码如下:
Dim xlApp As Object
Dim xlBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
With xlApp
xlApp.Visible = False
.Rows(1).Font.Bold = True '设置第一行为粗体zd
.Cells(10, 10).Value="姓名"
.Application.Visible = True
End With
Set xlApp = Nothing
Set xlBook = Nothing
如想了解其他操作excel的代码,可以在excel中,点击菜单的 工具——宏——录制新宏。
然后你手动对excel操作,操作完成后停止录制。回再点击 工具——宏——visual basic编辑器,找到刚才录制的宏,就可以看答到刚才对excel所做的操作对应的vb代码了。