TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
【金】超漢字原稿プロセッサ【SPD2004受賞】
Microsoft Office総合
【MOSS】Microsoft SharePoint製品【WSS】
無料が一番！ Starsuite6.0 を語ろう
【金】超漢字原稿プロセッサ【SPD2004受賞】
複数PCにExcelをインストールできない
ナレッジマネジメントってどうなる？
よみがえれソフト会社・テグレット！
ACCESS2000の分かりやすい本
SolidWorks総合スレ
437 ：
>>435
Sub copipe()
Dim mybook As Variant, rs As Long
mybook = Dir("Z:\*.xlsx")
Do Until mybook = ""
mybook = Dir
Workbooks.Open mybook
With Workbooks("aaa.xlsm").Worksheets("sheet1")
rs = .Cells(.Cells.Rows.Count, "A").End(xlUp).Offset(1).Row
.Cells(rs, 1) = Workbooks(mybook).Worksheets("sheet1").Range("B2;j10")
End With
Workbooks(mybook).Close
Loop
End Sub

実際に動かしてないからエラーが出るかも知れないが多分大丈夫と思う
開く方のシート名は何でもいいけど全て同じにする必要がある

アドビ、不細工アクティベーションやめろや
ATOK16についてカタリーナ・ビット
■ Office11総合スレッド
最近のMS-WORKSって使えますか？
転職するのにCADって有利ですか？
一太郎総合スレッド　その１５
ATOK17ってどうなの？
AutoCAD総合スレ part7
ＰＣゲー　ゼビウス
【無料】OpenOffice.org／StarSuite【有料】
--------------------
【都知事選2020】集団ストーカーから国民を守る党
M J K T
孤男とぬいぐるみ おむかえ四体目
【過去最高を更新】企業の内部留保が過去最高の463兆1308億円 ★5
ノーマン・リーダスpart4
固定スライドガスガン総合スレ　その4
とれたてみったん
☆カーナビ総合スレッド Part 8 ★【純正・社外・中華泥・モバイル】
1995年生まれの引きこもり
動画本スレ222
事故画像・動画から車種を特定するスレPart105
ザリガニ販売者スレ★４
【橋本環奈】 かぐや様は告らせたい〜天才たちの恋愛頭脳戦〜 5
●●八百長のオートレースは、もう廃止だ！！●●
【新しい楽器】近年なぜ新しい音楽生まれないか
【サウスト】ONE PIECE サウザンドストーム★85
記者「関西生コンのドン・武建一が逮捕されましたが見解を」　辻元清美事務所「知らないわからないどうでもいい」
Android ニコニコ動画総合 part10
【バーチャルYouTuber】.LIVEアイドル部アンチスレ#7005【アップランド】
ビリヤードの流行らない理由　その6
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼