Excel VBA 質問スレ Part76at TECHExcel VBA 質問スレ Part76 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト100:デフォルトの名無しさん 22/05/14 19:14:09.21 yHnyJFGQ0.net >>97 他に条件や例外がないなら自分で書いてる通り「そんなに難しくない」が、どこで詰まってるの？ 101:デフォルトの名無しさん 22/05/14 19:20:25.44 VTp6T5x/0.net >>97 ExecuteExcel4Macroはデフォで無効にされた なんか知らんが俺も動かせなかったからもうベタ書きで https://forest.watch.impress.co.jp/docs/serial/yajiuma/1357642.html Sub Sample1() Set t = ThisWorkbook For i = 1 To 3 Set databook = Workbooks.Open(Filename:="C:\Users\81909\Downloads\" & i & ".xlsx") t.Sheets("ssss").Cells(i, 2) = databook.Sheets("ssss").Cells(2, 4) databook.Close Next End Sub >>98 それならok 102:デフォルトの名無しさん 22/05/14 19:26:19.82 msymY1pp0.net 内容あまり理解出来てないのかもしれないけど B500の行取得してワークブックオープンで引数ファイルパス500で開いてデータ抜きたいところ抜けば良いのではないでしょうか。 4使うあたり処理を重くしたくないのでワークブックを開きたくないようにも見えますが 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch