[算表] Excel 大量重複動作 VBA

看板Office作者njp2942u4 (小M)時間11年前 (2014/07/30 14:13)推噓0(0推 0噓 4→)

留言4則, 1人參與討論串1/1

軟體:Excel 版本:2007 整個原始檔案部分 http://1drv.ms/1lUW4sU 物料表檔案http://1drv.ms/1lUWdMT 規格內容需求http://1drv.ms/1qK0tGD 程式部分 Sub Ex() Dim Fs As Object, E, i As Integer, P, ii As Integer With CreateObject("Scripting.FileSystemObject").GetFolder("d:\相片\") '<-修改為你要查詢之資料夾假設在d槽 i = 1 For Each E In .SubFolders If i > ActiveWorkbook.Sheets.Count Then Sheets.Add(, Sheets(Sheets.Count)).Name = E.Name Else Sheets(i).Name = E.Name '<-新檔名取代品名以及舊檔名 End If ii = 1 For Each P In E.Files If InStr(UCase(P.Name), ".JPG") Then With Sheets(i).Pictures.Insert(P) .Top = Cells(ii, 2).Top .Left = Cells(ii, 2).Left .Width = 50 .Height = 50 End With ii = ii + 5 End If Next i = i + 1 Next Dim St As Worksheet: Set St = ThisWorkbook.Worksheets("Sheet1") Dim Mx Workbooks.Open "D:\Book2.xls"假設在檔名為Book2 Mx = Range(St.[A1], St.[C10]) Workbooks("Book2").Sheets("Sheet1").[A1].Resize(UBound(Mx, 1), UBound(Mx, 2)) = Mx Workbooks("Book2").Close True End With End Sub 不知道是有bug? 為何無法啟動? 感謝大大解答! -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.24.49.57 ※ 文章網址: http://www.ptt.cc/bbs/Office/M.1406700836.A.B74.html

→

soyoso

07/30 14:46, , 1^F

07/30 14:46, 1^F

→

soyoso

07/30 14:46, , 2^F

07/30 14:46, 2^F

您誤會了插入新步驟3 原步驟三變步驟四之後變步驟五圖面以及框起來之資料都依格式往後順延若插入新步驟10 則原步驟10 變步驟11 之後變步驟12 圖面以及框起來之資料都依格式往後順延 ※ 編輯: njp2942u4 (36.231.137.210), 07/30/2014 15:58:25