最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
从VB中的Datagride中向excel导入数据
时间：2022-07-02 11:15:01 编辑：袖梨 来源：一聚教程网
程序需要，我在网上找了很久才找到，刚刚把程序写好，并加写了注释，希望能帮助大家
再写程序前先引用
microsoft excel 11.0 object Library
我看到的文章是10.0的，我这是office2003是11.0，只要安了excel就有这个引用~
Private Sub cmdsave_Click()
MsgBox "文件保存为: D:电网配电线路管理信息系统信息查询结果事故信息查询结果.xls"
Dim i As Integer
Dim j As Integer
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
Set ex = CreateObject("Excel.Application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
’在excel里表格的表头，这是根据我的需要添加的标头
ex.Range("c3").Value = "日期"
ex.Range("d3").Value = "时间"
ex.Range("e3").Value = "站点"
ex.Range("f3").Value = "汇报人"
相关文章
- 王者荣耀S38赛季有什么更新 12-25
- 王者荣耀S38赛季有什么更新 王者荣耀S38赛季更新内容介绍 12-25
- 世界之外12.25有什么更新 世界之外12月25日更新内容介绍 12-25
- 光遇12.25红石碎片在哪里 光遇12月25日红石碎片位置攻略 12-25
- 奇迹暖暖绚光引途第二天怎么玩 绚光引途day2庆祝之舞搭配攻略 12-25
- 无限暖暖拍照打卡位置在哪里 无限暖暖世界巡游位置全攻略 12-25