在VB中怎样打开并显示Excel文件
2个回答
展开全部
首先,工程-引用 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 '设置第一行为粗体
.Cells(10, 10).Value="姓名"
.Application.Visible = True
End With
Set xlApp = Nothing
Set xlBook = Nothing
如想了解其他操作excel的代码,可以在excel中,点击菜单的 工具——宏——录制新宏。
然后你手动对excel操作,操作完成后停止录制。再点击 工具——宏——visual basic编辑器,找到刚才录制的宏,就可以看到刚才对excel所做的操作对应的vb代码了。
然后代码如下:
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 '设置第一行为粗体
.Cells(10, 10).Value="姓名"
.Application.Visible = True
End With
Set xlApp = Nothing
Set xlBook = Nothing
如想了解其他操作excel的代码,可以在excel中,点击菜单的 工具——宏——录制新宏。
然后你手动对excel操作,操作完成后停止录制。再点击 工具——宏——visual basic编辑器,找到刚才录制的宏,就可以看到刚才对excel所做的操作对应的vb代码了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |