[經(jīng)驗(yàn)]Access控制Excel零值不顯示

tmtony

Access控制Excel零值不顯示
經(jīng)常會(huì)將數(shù)據(jù)輸出到Excel,如果輸出的零值在Excel不希望顯示出來(lái)的話,可在Access程序中控制,也可直接控制Excel零值顯示方式

下面就是代碼

On Error Resume Next
    Dim xlsApp As Object
    Dim xlsWBook As Object
    Dim xlsWSheet As Object
    DoCmd.Hourglass True

        Set xlsApp = CreateObject("Excel.Application")      
    Set xlsWBook = xlsApp.Workbooks.Add(CurrentProject.Path & "\MonthTemplate.xlt") '使用模板打開(kāi)
    Set xlsWSheet = xlsWBook.ActiveSheet
   
    xlsApp.ActiveWindow.DisplayZeros = False

andymark

學(xué)習(xí)啦~~

xuwenning

學(xué)習(xí)
[:50]

lgcsee

要好好學(xué)習(xí)一下！

Grant

對(duì)excel了解不多,學(xué)習(xí)

koutx

學(xué)習(xí)了，導(dǎo)出Excel時(shí)，解決0的顯示雖然不是個(gè)大問(wèn)題，可也是很煩人的事。

purplerose

很及時(shí) ，前幾天還有人在問(wèn)這個(gè)問(wèn)題呢，謝謝了！^=^

李力軍2

謝謝