返回列表 上一主題 發帖

WORD 2003 VBA 另存新檔的 BUG?

WORD 2003 VBA 另存新檔的 BUG?

這是 WORD 2003 寫的 VBA

CTRL +p 列印時,執行 VBA巨集

抓取 時間、第一行、第二行、表格(2,2) 的內容

組成新的檔名 20240328_121004_APPLE_某公司_詢價單.doc

但存檔畫面,始終只有 20240328_121004_APPLE

111.jpg
2024-3-28 16:56

112.jpg
2024-3-28 16:57


但在 VBA 的除錯畫面,filename 上顯示的卻是正常的

有在別台電腦試過了,一樣的情況,請問有人知道是什麼原因?


二、我試過 produc vender table 排列組合(六種),只有兩種情況是正常


filename = Format(Now, "YYYYMMDD_HHMMSS") & Product & Vendor & Table 20240328_122943_APPLE
filename = Format(Now, "YYYYMMDD_HHMMSS") & Product & Table & Vendor 20240328_123002_APPLE

filename = Format(Now, "YYYYMMDD_HHMMSS") & Vendor & Table & Product 20240328_123015_某公司_詢價單_APPLE
filename = Format(Now, "YYYYMMDD_HHMMSS") & Table & Vendor & Product 20240328_123224_詢價單_某公司_APPLE

filename = Format(Now, "YYYYMMDD_HHMMSS") & Vendor & Product & Table 20240328_123858_某公司_APPLE
filename = Format(Now, "YYYYMMDD_HHMMSS") & Table & Product & Vendor 20240328_123927_詢價單_APPLE


20240328_122246_某公司_詢價單.zip (13.26 KB)
公開經驗,創造智慧(我又不靠這過活)

回復 1# eigen


   加上這行代碼應該就能解決您的問題!
PixPin_2024-04-28_22-31-13.png
Word呈現極致的靜態之美,Excel展現極致的動態之美。

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題