在Excel中"数据"菜单->"获取外部数据"->"新建数据库查询"
选择驱动程序为Access,选择数据库名字
选择表,字段
导入这样做还可以根据最新的数据库的跟新来跟新数据

解决方案 »

  1.   

    嗯,好像是有点。就是在一台计算机上有一个存储数据的MDB,其中有一个表中的数据的一部分要提取出来成EXCEL表格或生成新的MDB,存到软盘中。我想用一个VB的小程序实现,但水平有限,所以求助阿...
      

  2.   

    可先用数据管道在PB中建立(或导入到)一个数据库,在通过数据窗口保存为你想要的任何格式的文件包括excelString ls_File, ls_Path, ls_Ext
    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