数据导出 生成新文件

vikyu

Desktop.zip (31.61 KB, 下载次数: 40)

2016-1-7 16:46 上传

点击文件名下载附件

zhaogang1960

请参考:

1. Private Sub CommandButton3_Click()
   
2.     Dim fileSaveName, cnn As Object, SQL$
   
3.     fileSaveName = Application.GetSaveAsFilename("结果", fileFilter:="Microsoft Excel Files (*.xlsx),*.xlsx")
   
4.     If fileSaveName = False Then Exit Sub
   
5.     If Dir(fileSaveName) <> "" Then Kill fileSaveName
   
6.     Set cnn = CreateObject("ADODB.Connection")
   
7.     cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
   
8.     SQL = "select * into [Excel 12.0 xml;Database=" & fileSaveName & "].Sheet1 from [sheet1$A10:I]"
   
9.     cnn.Execute SQL
   
10.     cnn.Close
    
11.     Set cnn = Nothing
    
12. End Sub
    

复制代码

zhaogang1960

请测试附件
整体.rar (23.75 KB, 下载次数: 196)

2016-1-7 17:40 上传

点击文件名下载附件

vikyu

zhaogang1960 发表于 2016-1-7 17:40
请测试附件

F、G列没有删除 经筛选后 导出的是全部结果，而不是筛选后的结果，生成的新文件字体太小，最好是12号。麻烦老师修改一下

zhaogang1960

vikyu 发表于 2016-1-7 17:51
F、G列没有删除 经筛选后 导出的是全部结果，而不是筛选后的结果，生成的新文件字体太小，最好是12号。麻 ...

删除F、G列:

1. Private Sub CommandButton3_Click()
   
2.     Dim fileSaveName, cnn As Object, SQL$
   
3.     fileSaveName = Application.GetSaveAsFilename("结果", fileFilter:="Microsoft Excel Files (*.xlsx),*.xlsx")
   
4.     If fileSaveName = False Then Exit Sub
   
5.     If Dir(fileSaveName) <> "" Then Kill fileSaveName
   
6.     Set cnn = CreateObject("ADODB.Connection")
   
7.     cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
   
8.     SQL = "select 客户,日期,单号,省份,重量,金额,备注 into [Excel 12.0 xml;Database=" & fileSaveName & "].Sheet1 from [sheet1$A10:I]"
   
9.     cnn.Execute SQL
   
10.     cnn.Close
    
11.     Set cnn = Nothing
    
12. End Sub
    

复制代码

vikyu

zhaogang1960 发表于 2016-1-7 17:57
删除F、G列:

F、G列能删除 能否麻烦高手  A10经筛选后只导出经筛选后的数据呢？

zhaogang1960

vikyu 发表于 2016-1-7 18:07
F、G列能删除 能否麻烦高手  A10经筛选后只导出经筛选后的数据呢？

我的理解能力有限，不知所云，请重新开帖求助吧，以免耽误你的工作

卡卡你

学习了。这个代码非常好用，也帮我解决了问题了

sdhyjian321

感谢分享！·！！！！

LMY123

SQL = "select * into [Excel 12.0 xml;Database=" & fileSaveName & "].Sheet1 from [sheet1$A10:I]"