在Excel中"数据"菜单->"获取外部数据"->"新建数据库查询"
选择驱动程序为Access,选择数据库名字
选择表,字段
导入这样做还可以根据最新的数据库的跟新来跟新数据
选择驱动程序为Access,选择数据库名字
选择表,字段
导入这样做还可以根据最新的数据库的跟新来跟新数据
解决方案 »
- 有没有现成的函数 完成这个
- 如何取某字段的中间字符
- sql查询问题
- 求一SQL
- SQL安装得问题!跳出"无法读取指定文件。极有可能是由于网络连接不正常所致。请更正该问题然后重新启动安装程序。
- windows 2003 server 2003 + server 2000故障转移群集 服务自动切换失败
- 这样怎么做!请教高手
- SQL 2005 如何查询创建时间相隔30分钟的所有记录?
- t-sql 中一变量需要大于8000个字 需varchar最大不能超过8000 定义成text则出错,加急,在线等
- 求助 多表千万级分页存储过程
- 请教高手系统表sysobjects的status列的含义(问题解决立刻给分)
- 我用asp访问sqlserver出现如下错误
Integer li_Valueli_Value = GetFileSaveName ("打印到文件", ls_Path, ls_File, "DOC", &
"文本文件; (*.CSV), *.CVS," + &
"文本文件Tab (*.TXT), *.TXT," + &
"dBASE II (*.DBF), *.DBF," + &
"dBASE III (*.DBF), *.DBF," + &
"DIF文件 (*.DIF), *.DIF," + &
"Excel文件 (*.XLS), *.XLS," + &
"HTML文件 (*.HTM), *.HTM," + &
"PSR文件 (*.PSR), *.PSR," + &
"SQL文件 (*.SQL), *.SQL," + &
"多格式文件 (*.SYL), *.SYL," + &
"Lotus1-2-3 (*.WKS), *.WKS," + &
"Lotus1-2-3 (*.WK1), *.WK1," + &
"WMF Windows (*.WMF), *.WMF")IF li_Value <> 1 THEN RETURN
IF ls_Path = '' THEN RETURN
IF FileExists(ls_Path) THEN
Beep(3)
IF MessageBox('系统信息', '文件:'+ls_Path+'已存在, 覆盖吗(Yes/No)?', Question!, YesNo!, 2)=2 THEN RETURN
END IF
ls_Ext = Upper(Right(ls_Path, 3))CHOOSE CASE ls_Ext
// CASE "prn"
// dw_preview.Object.Datawindow.Print.FileName = ls_Path
// dw_preview.Print()
CASE 'CSV'
li_Value = dw_preview.SaveAs(ls_Path, CSV!, FALSE)
CASE 'DBF'
li_Value = dw_preview.SaveAs(ls_Path, dBASE3!, FALSE)
CASE 'DIF'
li_Value = dw_preview.SaveAs(ls_Path, DIF!, FALSE)
CASE 'XLS'
li_Value = dw_preview.SaveAs(ls_Path, Excel!, FALSE)
CASE 'HTM'
li_Value = dw_preview.SaveAs(ls_Path, HTMLTable!, FALSE)
CASE 'PSR'
li_Value = dw_preview.SaveAs(ls_Path, PSReport!, FALSE)
CASE 'SQL'
li_Value = dw_preview.SaveAs(ls_Path, SQLInsert!, FALSE)
CASE 'SYL'
li_Value = dw_preview.SaveAs(ls_Path, SYLK!, FALSE)
CASE 'TXT'
li_Value = dw_preview.SaveAs(ls_Path, Text!, FALSE)
CASE 'WKS'
li_Value = dw_preview.SaveAs(ls_Path, WKS!, FALSE)
CASE 'WK1'
li_Value = dw_preview.SaveAs(ls_Path, WK1!, FALSE)
CASE 'WMF'
li_Value = dw_preview.SaveAs(ls_Path, WMF!, FALSE)
END CHOOSEBeep(3)
IF li_Value=1 THEN
MessageBox('系统信息', '数据保存完毕!')
ELSE
MessageBox('系统信息', '数据保存错误!')
END IF