Re: [文件] excel 連結多對一的問題

看板Office作者justplay (Noblesse Oblige)時間14年前 (2012/03/06 12:26)推噓2(2推 0噓 0→)

留言2則, 1人參與討論串2/2 (看更多)

※ 引述《pttbobo (pttbobo)》之銘言：剛好在練習 VBA，順便研究這怎麼寫。 '按 Alt+ F11 開 VBA，貼這行開始的回文 '記得調整 EXCEL 安全性 '以下假設 1000 多筆放在同一個目錄 '同目錄沒有多餘的資料 ' !!!本程式沒有防呆功能 ' 修改目錄後，按 F5 開始 Public Sub fas() Dim obj, fdir, fpath, filelists, x, y, z, i, n1 Workbooks.Add '把下面 xyz 換成喜歡的名字 n1 = "xyz" '以下預設編輯後檔案存在 d 槽下 ActiveWorkbook.SaveAs "d:\" & n1, FileFormat:=52 fdir = "d:\tmp\xls" ' d:\tmp\xls 換成 D:\財金所資料\論文\DATA\資料為學姊的46個國家\ ' 整理後為10年的資料\EVIEW output\eview output(3 var)\ Set obj = CreateObject("Scripting.FileSystemObject") Set fpath = obj.Getfolder(fdir) Set filelists = fpath.Files z = 0 For Each y In filelists z = z + 1 'MsgBox y Workbooks.Open (y) x = ActiveWorkbook.Sheets(1).Cells(14, 10).Value y = ActiveWorkbook.Name Workbooks(n1).Sheets(1).Cells(z, 1).Value = x 'Column B 存檔案來源 Workbooks(n1).Sheets(1).Cells(z, 2).Value = y Workbooks(y).Close Next y End Sub : 軟體:excel : 版本:2010 : 比如說我有a(彙整) b(資料) c(資料) 三個excel : 然後我想要從b 跟 c中的某個欄位(都是相同的 ex: D1) : 複製到 a 這個excel : 最後的呈現結果為 : a : 1 為b的D1 : 2 為c的D1 : 3 ..... : 在excel表中用手動連結的公式為 : a1 ='D:\財金所資料\論文\DATA\資料為學姊的46個國家\整理後為10年的資料\EVIEW : output\eview output(3 var)\[Australia.xls]Australia'!$J$14 : a2 ='D:\財金所資料\論文\DATA\資料為學姊的46個國家\整理後為10年的資料\EVIEW : output\eview output(3 var)\[Argentina.xls]Argentina'!$J$14 : 不知道看不看得懂? : 目前我只能手動的可是我有1000多筆要複製 : 不知道有沒有Excel高手可以救我? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.112.151.103 ※ 編輯: justplay 來自: 140.112.151.103 (03/06 12:26) ※ 編輯: justplay 來自: 140.112.151.103 (03/06 12:26)

Re: [文件] excel 連結多對一 的問題

Re: [文件] excel 連結多對一的問題