エクセルの学校：全文検索：Hyper Estraier： ExecuteExcel4Macro　閉じた｜開いて

Results of 1 - 1 of about 71 for ExecuteExcel4Macro　閉じた｜開いて｜開かず (0.012 sec.)

executeexcel4macro (140), 閉じた (629), 開いて (4904), 開かず (263)

[[20150414002202]]: #score: 14119; @digest: 54b8f684044539e3e5fc8fff05dd4124; @id: 67782; @mdate: 2015-04-14T15:19:40Z; @size: 3375; @type: text/plain; #keywords: fullpathname (42959), 1504 (11368), 納s (7055), トx (6892), 減出 (6676), 記開 (5655), fpath (5255), tsh (5237), fname (5074), 象ブ (4517), 数s (4008), 記シ (2839), 削減 (2199), ・取 (2166), specialfolders (2117), 定位 (1820), 【ブ (1778), 始行 (1676), wscript (1419), ダ内 (1373), desktop (1312), instrrev (1137), 照式 (1049), ブッ (1038), イプ (945), ル" (934), ファ (871), 転記 (871), 象セ (701), ァイ (675), ォル (668), 対象 (608); 『フォルダ内にある全ファイル名を別のファイルに呼び出したい』（ちぃちゃん）
こんばんは。デスクトップにある「ABC」というフォルダ内に複数のエクセルファイルがあります。 1504_11-150011-011-01-1 1504_11-150123-012-11-1 1504_11-150033-015-00-1 1504_11-150159-012-01-2 といった感じのファイルが14〜15個あります。集計.xlsmのコマンドボタンをクリックした時に、集計ファイルのA列に上記「ABC」フォルダに入っている全エクセルファイルのファイル名を、 B列に各ファイルのC5セルに入力されている値を表示させたいと思っていますがやり方を教えて頂けないでしょうか。宜しくお願いします。＜使用 Excel:Excel2007、使用 OS:Windows7 ＞ ---- 別の板ですが、1つのブックからそのシート上の特定セルの値をマクロブックに取り込む案件があって私からは【ブックを開いて取り込む】、また別の回答者さんから【ブックを開かずに取り込む】回答があります。これを利用して・1つのブックを開いているところを、フォルダ内のブックをループで取り出して開く・取り込んだものを定位置ではなく、行を変えて転記していく。この制御を追加することになります。 http://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=169223&rev=0 以下に、開かないタイプと開くタイプを。なお、開かないタイプは、処理は軽いというか早いのですが対象ブックのシート名を "Sheet1" と固定しています。ブックにより名前が異なる場合は使えません。 Sub TestNonOpen() Dim FullPathName As String Dim i As Long, j As Long Dim s As String Dim fPath As String Dim fName As String Dim tSh As Worksheet Dim x As Long fPath = CreateObject("WScript.Shell").SpecialFolders("DeskTop") & "¥ABC¥" Set tSh = ThisWorkbook.Sheets(1) '転記シート x = 1 '転記開始行 fName = Dir(fPath & "*.xlsx") Do While fName <> "" FullPathName = fPath & fName i = InStrRev(FullPathName, "¥") j = Len(FullPathName) - i ' 変数 s に、対象ブックの "Sheet1!対象セル" までの参照式を格納 s = "'" & Left(FullPathName, i) & "[" & _ Right(FullPathName, j) & "]" & "Sheet1" & "'!R5C3" tSh.Cells(x, "A").Value = fName tSh.Cells(x, "B").Value = ExecuteExcel4Macro(s) fName = Dir() x = x + 1 Loop End Sub Sub TestOpen() Dim fPath As String Dim fName As String Dim tSh As Worksheet Dim fSh As Worksheet Dim x As Long Application.ScreenUpdating = False fPath = CreateObject("WScript.Shell").SpecialFolders("DeskTop") & "¥ABC¥" Set tSh = ThisWorkbook.Sheets(1) '転記シート x = 1 '転記開始行 fName = Dir(fPath & "*.xlsx") Do While fName <> "" Set fSh = Workbooks.Open(fPath & fName).Sheets(1) tSh.Cells(x, "A").Value = fName tSh.Cells(x, "B").Value = fSh.Range("C5").Value fSh.Parent.Close False fName = Dir() x = x + 1 Loop End Sub （β） 2015/04/14(火) 06:52 ---- β様こんばんは。返信ありがとうございます。今回は、対象ブックのシート名を "Sheet1" と固定していても問題ないので、処理の早い方を使用させて頂いたところ、理想通りの事が出来ましたのでこちらを使用させて頂きたいと思います。毎日の作業で時間が削減出来てすごい助かりました。ありがとうございました。（ちぃちゃん） 2015/04/15(水) 00:19 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201504/20150414002202.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ