Office中國(guó)第一期專家在線會(huì)診內(nèi)容

guotianxin

問題31： 關(guān)于EXCEL的（2） 我能不能把根據(jù)查找得到的窗體中的數(shù)據(jù)直接導(dǎo)入EXCEL中并且在EXCEL中生成對(duì)應(yīng)的圖 （ 注意主要是生成對(duì)應(yīng)的圖 ）解答：我有現(xiàn)成實(shí)例，請(qǐng)與我聯(lián)系

guotianxin

問題26：怎樣讓輸出數(shù)據(jù)至EXCEL后，讓它又執(zhí)行EXCEL中的宏呢？(提問人：xulanghui)

解答：在我的網(wǎng)站上有現(xiàn)成的實(shí)例程序，請(qǐng)上我的網(wǎng)站www.szyyt.com 下載客戶管理系統(tǒng)，看看客戶查詢窗體上的‘導(dǎo)出Excel’功能。其實(shí)，只要在Excel宏語句前加上Access中對(duì)Excel進(jìn)行引用的對(duì)象變量，就能在Access中運(yùn)行。

guotianxin

問題30： 問題2 關(guān)于EXCEL的問題（1）  我用的窗體是子母窗體 我現(xiàn)在 查詢一個(gè)條件主窗體會(huì)產(chǎn)生相應(yīng)的數(shù)據(jù) 而子窗體也會(huì)產(chǎn)生與主窗體相應(yīng)的數(shù)據(jù) 我現(xiàn)在想把子窗體的數(shù)據(jù)直接從窗體中導(dǎo)入到EXCEL中去  我用的是OUTPUTTO 可是導(dǎo)入的時(shí)候它卻把所有的子窗體對(duì)應(yīng)的表的數(shù)據(jù)全部導(dǎo)入了  用了WHERE條件卻沒什么用  它要跳出對(duì)話框 要你輸入對(duì)應(yīng)的條件然后才能導(dǎo)出 我想要直接就能導(dǎo)入當(dāng)前的數(shù)據(jù)  (提問人：yanchangshan(顏長(zhǎng)山@蘇州)）

解答：使用Copy、Paste方法：

Sub CopyToExcel(sTitle As String)

        Dim j As Integer

        子窗體名.SetFocus

        DoCmd.RunCommand acCmdSelectAllRecords

        DoCmd.RunCommand acCmdCopy

        GetExcel

        CopyToExcel "報(bào)表標(biāo)題"

        MyXL.Application.Workbooks.Add

        MyXL.Application.ActiveSheet.Paste



    '設(shè)置無網(wǎng)格線，零值不顯示

    With MyXL.Application.ActiveWindow

        .DisplayGridlines = False

        .DisplayZeros = False

    End With

   

    '插入表頭

    MyXL.Application.ActiveSheet.Rows("1:1").Select

    For j = 1 To 2

        MyXL.Application.Selection.Insert Shift:=xlDown

    Next j

    MyXL.Application.ActiveSheet.Range("A1") = sTitle

   

    '設(shè)置表標(biāo)題字體

    MyXL.Worksheets(1).Range("A1").Select

    With MyXL.Application.Selection.Font

        .Name = "宋體"

        .Size = 16

    End With

End Sub

Sub GetExcel()        '打開Excel

    Const ERR_APP_NOTRUNNING As Long = 429

   

    On Error Resume Next

    Set MyXL = GetObject(, "Excel.Application")

    If Err = ERR_APP_NOTRUNNING Then

        Set MyXL = New Excel.Application

    End If

   

    MyXL.Application.Visible = True

End Sub

[此貼子已經(jīng)被作者于2004-11-7 21:31:16編輯過]

guotianxin

問題33：有沒有在窗口中移動(dòng)控件,在打印報(bào)表里也會(huì)自動(dòng)移動(dòng)的?（提問人：esmile.易成效.深圳 ）解答：我已將代碼發(fā)給你，不知能否看明白

guotianxin

問題2：1.省，市的問題 省，市在一個(gè)表里，省用下拉形式表示。市也是。  點(diǎn)選省，自動(dòng)得到這個(gè)省的所有市。后面填寫這個(gè)市的信息。

解答：sub 省_AfterUpdate()    市.RowSource="Select * From 市 Where 省='" & 省 & "'"End Sub

guotianxin

問題2.

3．怎樣實(shí)現(xiàn) 點(diǎn)一個(gè)窗體（主窗體）的按鈕，執(zhí)行另外一個(gè)窗體（子窗體）的按鈕。(提問人：yelang)

請(qǐng)參照系列實(shí)例程序，是老外作的，非常好

yanchangshan

郭大蝦 你說關(guān)與我的問題31你有 類子和你聯(lián)係我不知道 怎麼聯(lián)係啊是到你的網(wǎng)上嗎

yanchangshan

另外 我還想問郭大蝦  我可不可以在子窗體中用鼠標(biāo)任意框定點(diǎn)選的欄位及欄位對(duì)應(yīng)的數(shù)據(jù)然後就可以把這些選定的數(shù)據(jù)導(dǎo)入EXCEL中去 據(jù)我的 領(lǐng)導(dǎo) 說他很久以前用的access系統(tǒng)就有這個(gè)功能

yelang771

謝謝guotianxin

guotianxin

以下是引用yanchangshan在2004-11-8 11:17:25的發(fā)言：



郭大蝦 你說關(guān)與我的問題31你有 類子和你聯(lián)係

我不知道 怎麼聯(lián)係啊

是到你的網(wǎng)上嗎

我的網(wǎng)上有MSN和QQ，你選擇一種方法與我聯(lián)系