菜鳥提問目前都是用很簡單的巨集但是很雷因此請益Q1:每小時固定下載資料複製彙整到檔案A.xls 。檔名:自動彙整_(固定名稱)2022080820:00.Xls(變數)。 是否可只尋找前面固定字串動作。 Q2:動作完成刪除 自動彙整_2020080820:00.xls。Q3:A.xls儲存格變動時執行outlook.applicationQ4.只彙整當日資料
文章關鍵字
Nopadanger wrote: Q1:每小時固定下載資料複製彙整到檔案A.xls 。檔名:自動彙整_(固定名稱)2022080820:00.Xls(變數)。 是否可只尋找前面固定字串動作。

可以,如果資料夾內有很多檔案,但只有一個"自動彙整_(固定名稱)"就可以。

Nopadanger wrote: Q2:動作完成刪除 自動彙整_2020080820:00.xls。

可以。

Nopadanger wrote: Q3:A.xls儲存格變動時執行outlook.application

儲存格變動是指? 執行outlook.application是要自動發信?

Nopadanger wrote: Q4.只彙整當日資料

如何判斷是不是當日資料? "自動彙整_(固定名稱)20220808" 年月日是固定的話應該可以。
Nopadanger
尉大。現在我只會用固定名稱 但是後面變數要怎麼撰寫?
尉大。現在我只會用固定名稱 但是後面變數要怎麼撰寫?
Nopadanger wrote:
尉大。現在我只會用固(恕刪)




改一下,前面寫得有點多餘
FileName=("自動彙整_" & Format(Date, "yyyymmdd") & ".xls")
Nopadanger wrote:
尉大。現在我只會用固...(恕刪)

讀到資料檔案取得檔名,再去抓檔名前面幾個字判斷就可以了。
概念大概像這樣
For Each 檔案 In 資料夾
If Mid(檔案.Name, 1, 4) = "自動彙整" Then ' 判斷檔案前四個字串是否等於"自動彙整"
'複製彙整到檔案A.xls
Exit for '離開迴圈
End If
Next
唬唬生瘋 wrote:
myname = "...(恕刪)


第一步我先消化一下….
小小尉 wrote:
讀到資料檔案取得檔名...(恕刪)

小的愚昧 照抄結果無法執行
小小尉
照抄肯定不行,前面要先宣告還有其他步驟
小小尉 wrote:
讀到資料檔案取得檔名...(恕刪)
 
小的請教。複製B到A工作簿 如何往下找空白貼上?
For I=2 to 1000
If Range(“A”+trim(str(I))) =“” then

Range(“A”+trim(str(I))).select

‘下面貼上
Nopadanger wrote:
小的請教。複製B到A(恕刪)


Range("A65535").Select
End_Row=ActiveSheet.Range("A65535").End(xlUp).Row
Cells(End_Row+1,1).Select

EXCEL總行數
2007以後 1,048,576
2003 65536
唬唬生瘋 wrote:
Range("A65...(恕刪)


另外Q3的問題是 上述有複製到彙整檔裡面後要執行outlook夾帶彙整檔。
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!