註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Word
» WORD 2003 VBA 另存新檔的 BUG?
返回列表
下一主題
上一主題
發帖
WORD 2003 VBA 另存新檔的 BUG?
eigen
發短消息
加為好友
eigen
當前離線
UID
15495
帖子
79
主題
33
精華
0
積分
123
金錢
123
點名
0
作業系統
win7
軟體版本
x64
閱讀權限
20
性別
男
來自
台灣
在線時間
16 小時
註冊時間
2013-10-24
最後登錄
2024-3-28
中學生
帖子
79
主題
33
精華
0
積分
123
點名
0
作業系統
win7
軟體版本
x64
閱讀權限
20
性別
男
來自
台灣
註冊時間
2013-10-24
最後登錄
2024-3-28
1
#
跳轉到
»
倒序看帖
打印
字體大小:
t
T
發表於 2024-3-28 17:08
|
顯示全部帖子
WORD 2003 VBA 另存新檔的 BUG?
這是 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
樓主熱帖
請教,如何隱藏儲存格內的圖片?如何快速指
EXCEL 合併列印二、範例、華南銀行存款憑條
請高手指點一下,如何做出動態的行事曆及雙
EXCEL 合併列印 套板列印進階教學 step by
2020 愛你愛你 新春印春聯
如何避免儲存格公式,因『剪下』『貼上』而
word 巨集 被連續觸發
請教操作 excel vba 直書橫書操作
excel vba 如何將其它程式的視窗移到最上層
如何取得某個檔案的儲存格資料?(檔案檔名
收藏
分享
公開經驗,創造智慧(我又不靠這過活)
靜思自在 :
要比誰更受誰.不要比誰更怕誰。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 • 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲