返回列表下一主題上一主題發帖

WORD 2003 VBA 另存新檔的 BUG?

eigen

中學生 Rank: 2

帖子: 79
主題: 33
精華: 0
積分: 123
點名: 0
作業系統: win7
軟體版本: x64
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2013-10-24
最後登錄: 2024-3-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2024-3-28 17:08 | 只看該作者

WORD 2003 VBA 另存新檔的 BUG?

這是 WORD 2003 寫的 VBA

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

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

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

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

但在 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