我是要我选择的导第几列就把数据导到数据库的某个字段来,然后再有选择的把数据库中的数据导回到EXECL中
解决方案 »
- 散分300,准备暂时隐居,直到程序做完。
- 寻找合作伙伴
- 发一个,用代码创建MDB文件的代码
- DATAGrid问题,送分的哦
- 到哪儿可以下载用于WIN2000 SERVER的NORTON杀毒软件---谢谢!!
- MSFlexGrid 控件问题
- VB怎样读取TXT文件的特定数据,以及将数据分组?
- InStr()函数的大问题
- 一个toolbar的小问题
- 是否可以把小的Wav文件嵌入程序,而不作为单独的文件?
- ★★【win2000/winxp下命令行的详细用法!!有谁知道呀,为什么我着个老出错呀!!】●●
- ActiveReports报表里面画好表格后取得的值超出了表格的高度,然后其他列的边框却不跟随变化适应,如何解决?(江湖救急阿!)
文件=》获取外部数据=》导入,然后按提示从EXCEL导入。
至于导回去更简单啦,在数据窗口选择需要导出的文件
文件=》导出 然后选择需要导出的文件类型为EXCEL即可,然后再EXCEL中把不需要的删除。用代码当然复杂些。
'On Error Resume Next
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 8.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & sAccessTable & " FROM [" & sSheetName & "$]")
MsgBox "导入成功", vbInformation, "信息"
End Sub
个人专栏:http://www.csdn.net/develop/author/netauthor/lihonggen0/
------------------------------------------------------------------