WORD 2003 VBA 另存新檔的 BUG?

eigen

這是 WORD 2003 寫的 VBA

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

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

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

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

下載 (104.12 KB)

2024-3-28 16:56

下載 (54.98 KB)

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)

範例檔案
下載次數: 5

2024-3-28 17:07

linyancheng

回復 1# eigen


   加上這行代碼應該就能解決您的問題！