VBA跨檔複製彙整資料

小小尉 wrote:
讀到資料檔案取得檔名...(恕刪)

Nopadanger wrote:
小的請教。複製B到A(恕刪)

Dim Row_End As Integer
Row_End = Worksheets("Sheet1").Cells(1, 1).End(xlDown).Row
Cells(Row_End + 1, 1).Select

Nopadanger wrote:
尉大這我想學 但是 (恕刪)

    Dim Path, File_Name As String
    Path = "資料夾路徑" 'e.g. "C:\"
    File_Name = Dir(Path)
    Do While File_Name <> ""
        If Mid(File_Name, 1, 4) = "自動彙整" Then ' 判斷檔案前四個字串是否等於"自動彙整"
            '複製彙整到檔案A.xls
            Exit Do '離開迴圈
        End If
        File_Name = Dir()
    Loop

小小尉 wrote:
試試看這個吧!可能比...(恕刪)

Nopadanger wrote:
我下班嘗試看看感謝...(恕刪)

Nopadanger wrote:
尉大 僅有工作表1的(恕刪)

    
'貼表格
Dim objMail As Object
With objMail
.HTMLbody = .HTMLbody & RangetoHTML(Worksheets("工作表1").Range("A1:Q20"))  '範圍可依需求更改
End With

小小尉 wrote:
你應該有執行outl...(恕刪)

小小尉 wrote:
你應該有執行outl...(恕刪)