本人用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

关闭表格之前运行一下保存命令 xlApp.xlbook.Saved = True  试试看可以吗？

不行，显示错误438

xlSheet.Range("A1:H1").Merge
a1到h1的单元格必须都赋值，赋值为你要合并的值。

版主你好，为什么单元格都赋一样的值才能合并

程序不能判断不一样的单元合并规则，只有值一样的他才认为合并没有问题。

楼主 chinaxjbg：
你需要合并单元格的内容，但你的代码中没有看到单元格是怎么合并的，仅仅看到的是对xls表格的处理。
你的合并单元格的VB代码不知道，因此将无从谈起问题出在那里。

版主你好，这句xlSheet.Range("A1:H1").Merge是对单元格的合并