请看我的ACCESS数据转换为EXCEL的代码哪里错了？

怎么点击“转换”按钮时，怎么转换不起来呢？

我是转贴别人的代码，稍作修改而成！

“转换”按钮代码如下：

appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
Dim lRow As Long
Dim sXLSPath As String
Dim MyExcel As New Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Dim s As String
Dim i As Integer
Dim j As Integer
Screen.MousePointer = 11
sXLSPath = appdisk & "gcjs.xls"
Open sXLSPath For Output As #1
Close #1
Set MyExcel = CreateObject("excel.application")
Set MyBook = MyExcel.Workbooks.Open(sXLSPath)
Set MySheet = MyExcel.ActiveSheet
MySheet.Range("A1:O1").Select
With MyExcel.Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With

MySheet.Columns("A:C").NumberFormat = "0_ "
MySheet.Columns(1).ColumnWidth = 5
。。。
。。。
MySheet.Cells(1, 1) = "K（常数）"
MySheet.Cells(2, 1) = 100 。。。
。。。
For i = 2 To rst.Fields.Count
For j = 2 To rst.RecordCount
MySheet.Cells(j, i).Value = rst.Fields(i - 1).Value
Next j
Next i

具体请看附件！

谢谢！

MVKCMBSY.rar (24.85 KB) 请看我的ACCESS数据转换为EXCEL的代码哪里错了

去掉不必要的引用就不会报错

同时 记得处理完后 关闭打开的 Excel 文件

[此贴子已经被作者于2007-7-11 0:36:55编辑过]

建议改成
Dim lRow As Long
Dim sXLSPath As String
Dim MyExcel As New Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Dim s As String
Dim i As Integer
Dim j As Integer
Screen.MousePointer = 11
Set MyExcel = CreateObject("excel.application")
Set MyBook = MyExcel.Workbooks.Add
Set MySheet = MyExcel.Worksheets(1)
MySheet.Range("A1:O1").Select
With MyExcel.Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With

MyExcel.Visible = True


MySheet.Columns("A:C").NumberFormat = "0_ "
MySheet.Columns(1).ColumnWidth = 5
MySheet.Columns(2).ColumnWidth = 10
MySheet.Columns(3).ColumnWidth = 10
MySheet.Columns(4).ColumnWidth = 10
MySheet.Columns(5).ColumnWidth = 10
MySheet.Columns(6).ColumnWidth = 10
MySheet.Columns(7).ColumnWidth = 10
MySheet.Columns(8).ColumnWidth = 10
MySheet.Columns(9).ColumnWidth = 10
MySheet.Cells(1, 1) = "K（常数）"
MySheet.Cells(2, 1) = 100

MySheet.Cells(1, 2) = "度"
MySheet.Cells(1, 3) = "分"
MySheet.Cells(1, 4) = "秒"
MySheet.Cells(1, 5) = "上丝"
MySheet.Cells(1, 6) = "中丝"
MySheet.Cells(1, 7) = "下丝"
MySheet.Cells(1, 8) = "测距"
For i = 2 To rst.Fields.Count
For j = 2 To rst.RecordCount
MySheet.Cells(j, i).Value = rst.Fields(i - 1).Value
Next j
Next i
Screen.MousePointer = 0

如果你要用不显示的转换,在转换完后加一条语句关闭EXCEL表就可以了

请看我刚刚修改的“转换”（Command4）控件的代码如下：

Private Sub Command4_Click()
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
Dim lRow As Long
Dim sXLSPath As String
Dim MyExcel As New Excel.Application
Dim MyBook As Excel.Workbook
Dim MySheet As Excel.Worksheet
Dim s As String
Dim i As Integer
Dim j As Integer
Screen.MousePointer = 11
sXLSPath = appdisk & "gcjs.xls"

Set MyExcel = CreateObject("excel.application")
Set MyBook = MyExcel.Workbooks.Open(sXLSPath)
Set MySheet = MyExcel.ActiveSheet
MySheet.Range("A1:O1").Select
With MyExcel.Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
MyExcel.Visible = True


MySheet.Columns("A:C").NumberFormat = "0_ "
MySheet.Columns(1).ColumnWidth = 5
MySheet.Columns(2).ColumnWidth = 10
MySheet.Columns(3).ColumnWidth = 10
MySheet.Columns(4).ColumnWidth = 10
MySheet.Columns(5).ColumnWidth = 10
MySheet.Columns(6).ColumnWidth = 10
MySheet.Columns(7).ColumnWidth = 10
MySheet.Columns(8).ColumnWidth = 10
MySheet.Columns(9).ColumnWidth = 10
MySheet.Cells(1, 1) = "K（常数）"
MySheet.Cells(2, 1) = 100

MySheet.Cells(1, 2) = "度"
MySheet.Cells(1, 3) = "分"
MySheet.Cells(1, 4) = "秒"
MySheet.Cells(1, 5) = "上丝"
MySheet.Cells(1, 6) = "中丝"
MySheet.Cells(1, 7) = "下丝"
MySheet.Cells(1, 8) = "测距"
For i = 2 To rst.Fields.Count
For j = 2 To rst.RecordCount
MySheet.Cells(j, i).Value = rst.Fields(i - 1).Value
Next j
Next i
Screen.MousePointer = 0

End Sub

这里有现成的实例:
http://bbs.bc-cn.net/viewthread.php?tid=27375&star=at#