| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1002 人关注过本帖
标题:根据一个朋友提供的ACCESS转换EXL代码如下出现的问题
只看楼主 加入收藏
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
结帖率:84.62%
收藏
 问题点数:0 回复次数:9 
根据一个朋友提供的ACCESS转换EXL代码如下出现的问题
根据一个朋友提供的ACCESS转换EXL代码如下:

Private Sub Command4_Click()
Dim sfile As String
Dim s As String
Dim i As Integer
Dim myexcel As New Excel.Application
Dim mybook As New Excel.Workbook
Dim mysheet As New Excel.Worksheet
Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK
Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET
myexcel.Visible = True
myexcel.UserControl = True
' myexcel.Visible = False
For i = 1 To Rst.Fields.Count
mysheet.Cells(1, i).Value = Rst.Fields(i - 1).Name
Next i
mysheet.Cells(2, 1).CopyFromRecordset Rst
mybook.SaveAs (sfile)
' mybook.Close savechanges:=True
' myexcel.Quit
Set mysheet = Nothing
Set mybook = Nothing
Set myexcel = Nothing
MsgBox "保存数据" & sfile & "成功!"
End Sub

执行后,结果打开了一个EXL,但是同时也出现了个提示框:

无法访问文件,请尝试下列方法之一:
确认指定的文件夹存在
。。。
搜索更多相关主题的帖子: EXL ACCESS 代码 朋友 
2007-08-06 22:14
缘吇弹
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:地球
等 级:版主
威 望:43
帖 子:3038
专家分:27
注 册:2007-7-2
收藏
得分:0 
本论坛有ACCESS转换EXL的实例。
LZ不妨找下

Repeat  Life=Study;Until (death);
2007-08-07 15:54
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 

修改完毕,请看:

Private Sub Command4_Click()
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
Dim lRow As Long
Dim sXLSPath As String

Dim s As String
Dim i As Integer
Dim myexcel As New Excel.Application
Dim mybook As New Excel.Workbook
Dim mysheet As New Excel.Worksheet
Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK
Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET
myexcel.Visible = True
myexcel.UserControl = True
' myexcel.Visible = False
For i = 1 To Rst.Fields.Count
mysheet.Cells(1, i).Value = Rst.Fields(i - 1).Name
Next i
mysheet.Cells(2, 1).CopyFromRecordset Rst
mybook.SaveAs FileName:=appdisk & "01.xls", FileFormat:=xlNormal, Password:="", writerespassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

' mybook.Close savechanges:=True
' myexcel.Quit

Set mysheet = Nothing
Set mybook = Nothing
Set myexcel = Nothing
MsgBox "转换数据成功!"

执行完毕后,虽然达到了满意的结果,但最后关闭时还是出现了:

实时对象:SaveAs.......

的错误!

请帮忙修改下!

谢谢!

2007-08-07 18:58
西风独自凉
Rank: 8Rank: 8
等 级:贵宾
威 望:43
帖 子:3380
专家分:28
注 册:2007-8-2
收藏
得分:0 
看这个吧...
fwx3fWyc.rar (16.22 KB) 根据一个朋友提供的ACCESS转换EXL代码如下出现的问题


这个是我做的.....去看一下吧

2007-08-07 19:58
西风独自凉
Rank: 8Rank: 8
等 级:贵宾
威 望:43
帖 子:3380
专家分:28
注 册:2007-8-2
收藏
得分:0 
不过我的是sql的....
只是连接不同....其它的都差不多

2007-08-07 20:00
西风独自凉
Rank: 8Rank: 8
等 级:贵宾
威 望:43
帖 子:3380
专家分:28
注 册:2007-8-2
收藏
得分:0 
mybook.SaveAs(文件名就可以了,没必要写那么多)
它会自动保存到我的文档里(Excel的路径)

2007-08-07 20:02
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 

mysheet.Cells(2, 1).CopyFromRecordset Rst
mybook.SaveAs (1)

' mybook.Close savechanges:=True
' myexcel.Quit

Set mysheet = Nothing
Set mybook = Nothing

成功了!



2007-08-07 22:42
西风独自凉
Rank: 8Rank: 8
等 级:贵宾
威 望:43
帖 子:3380
专家分:28
注 册:2007-8-2
收藏
得分:0 

呵呵.....
SaveAs后面的参数可以省略....


2007-08-08 08:41
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 
如果是在acc里的话
楼主不防看看

TransferSpreadsheet
这个函数 导出表就很简单了!

2007-08-08 09:04
lijun337
Rank: 1
等 级:新手上路
帖 子:379
专家分:5
注 册:2006-4-12
收藏
得分:0 

哦!举了例子看看!

谢谢!

2007-08-20 22:23
快速回复:根据一个朋友提供的ACCESS转换EXL代码如下出现的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.037829 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved