用vba 生成一个excel文件，合并了一些单元格，存盘后发现合并取消了

显示全部楼层 · 2010-10-9 20:13:02

excelbook.sheets(1).range("G"+ALLTRIM(STR(flag5))+":G"+ALLTRIM(STR(i-1))).merge()

excelbook.sheets(1).range("G"+ALLTRIM(STR(flag5))+":G"+ALLTRIM(STR(i-1))).verticalAlignment= -4108
自动存盘后关闭文件。
再打开时发现合并的地方被取消了，只有第一个单元格有值，其它的是空的。excelbook.close()
excelbook2.close()

千问 · 2010-10-9 20:13:02

你的代码不全，怎么分析？Sub m()flag5 = 1i = 9Sheets(1).Range("G" + Trim(Str(flag5)) + ":G" + Trim(Str(i - 1))).MergeSheets(1).Range("G" + Trim(Str(flag5)) + ":G" + Trim(Str(i - 1))).VerticalAlignment = -4108Workbooks(1).Close'Workbooks(2).Close
'代码如果在第一个文件中，第一个文件关闭时，也就结束了整个程序，第二个文件也就没有保存。End Sub