Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

148 / 76782

←次へ　｜　前へ→


	【82305】Re:テーブル最終行にデータ貼り付け

なんでやねん - 24/6/5(水) 15:09 -


	引用なし

	パスワード

マナさん
ありがとうございました。貼り付けできました！
　　For i = 0 To UFフォルダ選択.LB.ListCount - 1
　　　　folderPath = UFフォルダ選択.LB.List(i)

　　　　' フォルダ内の"分析.csv"ファイルを開く
　　　　Set csvWorkbook = Workbooks.Open(folderPath & "\分析.csv")
　　　　
　　　　' 新しい行を追加し、ペースト
　　　　Set newRow = targetTable.ListRows.Add

　　　　' "A2:KC2"の範囲をコピー
　　　　csvWorkbook.Sheets(1).Range("A2:KC2").Copy

　　　　' B列にペースト
　　　　newRow.Range(1, 2).PasteSpecial Paste:=xlPasteValues

　　　　' クリップボードをクリア
　　　　Application.CutCopyMode = False

　　　　' "分析.csv"ファイルを閉じる
　　　　csvWorkbook.Close SaveChanges:=False
　 Next i

6 hits

▼

【82301】テーブル最終行にデータ貼り付け なんでやねん 24/6/4(火) 14:43