| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3844 人关注过本帖
标题:求助,用vb建xls表格,给单元格赋值,并让几个单元格合并的问题!!
取消只看楼主 加入收藏
chinaxjbg
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-2-5
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
求助,用vb建xls表格,给单元格赋值,并让几个单元格合并的问题!!
本人用vb6建一个xls文件,在vb中给一些单元格赋值,并合并一些单元格。在vb运行中可看见赋值正常、合并单元格也正常,可保存后,用excel打开,单元格赋值正常,可单元格没有合并,不知道问题出在哪里,请高手指点一下,谢谢!代码如下:

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Private Sub Command1_Click()
If Dir(App.Path & "\RPT\", vbDirectory) = "" Then
MkDir (App.Path & "\RPT")
End If
FileName$ = App.Path & "\RPT\" & Format(Now, "yyyy年mm月dd日") & ".xls"
Open FileName For Binary As #1
Close #1
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(App.Path & "\RPT\" & Format(Now, "yyyy年mm月dd日") & ".xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Range("A1:H1").Merge
xlApp.Sheets(1).Cells(1, 1) = "序号"
xlApp.Sheets(1).Cells(2, 1) = "名称"
xlApp.Sheets(1).Cells(2, 2) = "数量"
xlApp.Sheets(1).Cells(2, 3) = "格式"
xlApp.Sheets(1).Cells(2, 4) = "单位"
xlApp.Sheets(1).Cells(2, 5) = "价格"
xlApp.Sheets(1).Cells(2, 6) = "总价"
xlApp.Sheets(1).Cells(2, 7) = "备注"
xlBook.SaveAs FileName:="App.Path & "\RPT\" & Format(Now, "yyyy年mm月dd日") & ".xls""
Set xlSheet = Nothing
xlBook.Close
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing

End Sub
搜索更多相关主题的帖子: xls 单元格 赋值 合并 Set 
2018-02-05 16:06
chinaxjbg
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-2-5
收藏
得分:0 
不行,显示错误438
2018-02-05 16:33
chinaxjbg
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-2-5
收藏
得分:0 
回复 4楼 wds1
版主你好,为什么单元格都赋一样的值才能合并
2018-02-05 22:05
chinaxjbg
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-2-5
收藏
得分:0 
回复 7楼 ZHRXJR
版主你好,这句xlSheet.Range("A1:H1").Merge是对单元格的合并
2018-02-06 12:38
快速回复:求助,用vb建xls表格,给单元格赋值,并让几个单元格合并的问题!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014230 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved