VBA
VB操作Excel进行的合并单元格中碰到问题，高手请进
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区当我第一次运行时，一切都正常；但是当再次运行时，弹出错误框，
"Method 'Range' of object '_Global' failed"
不知道是什么原因?望赐教!
以下是源程序:
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Sub MergeCell(CellRange As String)
Range(CellRange).Select
Selection.MergeCells = True
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End Sub
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
MergeCell "A1:A5"
xlApp.Visible = True
Set xlApp = Nothing
End Sub
"Method 'Range' of object '_Global' failed"
不知道是什么原因?望赐教!
以下是源程序:
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Sub MergeCell(CellRange As String)
Range(CellRange).Select
Selection.MergeCells = True
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End Sub
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
MergeCell "A1:A5"
xlApp.Visible = True
Set xlApp = Nothing
End Sub
...全文
相关推荐
VB调用Excel设置居中、自动调整列宽和合并单元格
这是我自己编写的，绝对能用，可以使Excel表格自动设置居中、自动调整列宽和合并单元格，根据自己需求稍修改下，需要的朋友可以用下
VB编写的Excel操作源代码
VB编写的Excel操作源代码 VB编写的Excel操作源代码 VB编写的Excel操作源代码
调整excel合并单元格行高
excel合并单元格换行不自动调整行高，通过vb代码对行高进行调整
用vb语言输出excel并合并单元格
用vb语言输出excel并合并单元格.txt
Microsoft.Office.Interop.Excel 生成EXCEL文件合并单元格
Microsoft.Office.Interop.Excel 生成EXCEL文件合并单元格
