none
我要問一下VB6.0匯入匯出該如何修改 RRS feed

  • 問題

  •  

    Private Sub command1_Click()
    ExportExcelSheetToAccess "Sheet1", "C:\talb.xls", "data", "C:\summer.mdb"
    End Sub→這裡因為有指定的ecel檔案匯入資料表中,我想要變成可以讓人選擇要匯入哪一個excel檔案(像是改起舊檔那樣的視窗)那要怎樣改??
    Private Sub command2_Click()
    Dim db As Database
    Set db = Workspaces(0).OpenDatabase(App.Path & "\summer.mdb")
    db.Execute "SELECT * INTO [Excel 8.0;DATABASE=C:\all.XLS].[kiss] FROM [kiss]"
    End Sub→這邊也是因為有指定的路徑,那我想要改成直接把access資料庫裡的kiss資料表的內容會到excel內,可是不是直接建個檔案然後資料在裡面,而是他會跳出excel的畫面,這樣要怎樣修改><
    Private Sub ExportExcelSheetToAccess(sSheetName As String, _
    sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
        Dim db As Database
        Dim rs As Recordset
        Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
        Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _
                        sAccessTable & " FROM [" & sSheetName & "$]")
        MsgBox "Table exported successfully.", vbInformation, "Yams"
    End Sub

     

    2007年12月12日 上午 06:36

解答

  • 查線上手冊 CommonDialog 控制項 的用法,也就是下面那個位置:

    mkAngryMSITStore:C:\Program%20Files\Microsoft%20Visual%20Studio\MSDN98\98VS\1028\cmdlg98.chm::/html/vbctlcommondialogcontrolopensaveasdialog.htm

     

    要跳出 Excel 畫面可以查線上手冊:"Excel.Application"

    2007年12月12日 上午 07:26
    版主

所有回覆

  • 查線上手冊 CommonDialog 控制項 的用法,也就是下面那個位置:

    mkAngryMSITStore:C:\Program%20Files\Microsoft%20Visual%20Studio\MSDN98\98VS\1028\cmdlg98.chm::/html/vbctlcommondialogcontrolopensaveasdialog.htm

     

    要跳出 Excel 畫面可以查線上手冊:"Excel.Application"

    2007年12月12日 上午 07:26
    版主
  •  

    很感激你,但是....他無法顯示網頁壓

    那個生氣的表情符號是什麼呀??

    2007年12月12日 上午 08:09
  • mk : @ MSITStore:...

    : @ 緊接著寫,論壇系統會自動轉換為 Angry

     

    線上手冊是要安裝才會有,請確認你安裝 VB6 時,有同時安裝線上手冊。

     

    2007年12月12日 上午 08:13
    版主
  •  

    ㄏㄏ...謝謝你們

    我在課本上找到嚕....

    但是...我用了,可是他不能匯入ㄟ,她有打開><

    你們的那個網站有咪有中文版壓><
    2007年12月13日 下午 01:56
  • 沒有自動匯入匯出,這都要自己寫。

     

    原版安裝片第三第四兩片,就是中文線上手冊。

     

    2007年12月13日 下午 02:45
    版主