最新下载
热门教程
- 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 = "汇报人"
相关文章
- 死亡搁浅2次要订单No.100 将拆解的步枪送到独行指挥官手上全流程攻略 09-06
- 死亡搁浅2怎么开启照明 闪光灯开启方法 09-06
- 超级忍反攻的斩击怎么下载 完整中文版获取指南 09-06
- 死亡搁浅2怎么使用VR培训室 09-06
- 超级忍反攻的斩击有手机版吗 移动端游玩指南 09-06
- 死亡搁浅2怎么提高波特等级 提高波特等级的方法 09-06