VB打开excel画表格的问题。

[programfish]

我编了一个程序用VB打开excel然后画表格，测试时发现在有的电脑上可以顺利的画出表格来，而在有的电脑上只能打开excel却不画表格，请问如何解决啊。

[ljw0131]

能看看代码么

[issacp]

把代碼貼出來看看

[programfish]

Option Explicit

Dim AppExcel As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set AppExcel = CreateObject("Excel.Application")
Set xlBook = AppExcel.Workbooks.Add
Set xlSheet = AppExcel.Workbooks(1).Worksheets(1)
AppExcel.Visible = True
Worksheets(1).Activate


'做表格

Range("A1:M1").Select

With Selection
.HorizontalAlignment = xlCenter
End With
Selection.Merge
````````````````````

[非专业开发Five]

各个电脑Excel的版本看看