| 网站首页 | 业界新闻 | 群组 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 580 人关注过本帖
标题:求助,用vb建xls表格,给单元格赋值,并让几个单元格合并的问题!!
只看楼主 收藏
chinaxjbg
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-2-5
结帖率:100%
  已结贴   问题点数:20  回复次数:7   
求助,用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
2018-02-05 16:06
suzhanpeng
Rank: 3Rank: 3
等 级:论坛游侠
威 望:3
帖 子:45
专家分:141
注 册:2016-9-28
  得分:5 
关闭表格之前运行一下保存命令 xlApp.xlbook.Saved = True  试试看可以吗?
2018-02-05 16:30
chinaxjbg
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-2-5
  得分:0 
不行,显示错误438
2018-02-05 16:33
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:17
帖 子:188
专家分:1003
注 册:2016-3-10
  得分:5 
xlSheet.Range("A1:H1").Merge
a1到h1的单元格必须都赋值,赋值为你要合并的值。
2018-02-05 18:43
chinaxjbg
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-2-5
  得分:0 
回复 4楼 wds1
版主你好,为什么单元格都赋一样的值才能合并
2018-02-05 22:05
wds1
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:17
帖 子:188
专家分:1003
注 册:2016-3-10
  得分:0 
程序不能判断不一样的单元合并规则,只有值一样的他才认为合并没有问题。
2018-02-06 08:10
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:58
帖 子:634
专家分:3452
注 册:2016-5-10
  得分:5 
楼主 chinaxjbg:
你需要合并单元格的内容,但你的代码中没有看到单元格是怎么合并的,仅仅看到的是对xls表格的处理。
你的合并单元格的VB代码不知道,因此将无从谈起问题出在那里。

QQ    2653043392
2018-02-06 09:50
chinaxjbg
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-2-5
  得分:0 
回复 7楼 ZHRXJR
版主你好,这句xlSheet.Range("A1:H1").Merge是对单元格的合并
2018-02-06 12:38







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

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