掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ExcelのデータをRangeで一気に取り込むには？ (ID：109676)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Private Sub Command1_Click() Dim objExcelApp As Workbook Dim arrData As Variant Set objExcelApp = GetObject(App.Path & "\testdata.xls", "Excel.Sheet") With objExcelApp arrData = .Worksheets(1).Range("A1:A2").EntireRow .Worksheets(2).Range("A1").Resize(1, 2).Value = arrData .Windows(1).Visible = True .SaveAs App.Path & "\test" & Format(Now, "yyyymmddhhmmss") & ".xls" .Application.Quit End With Set objExcelApp = Nothing End Sub 注：エクセルのデータを取ってきた場合、配列は(1,1)始まりです。書込みまでに処理を 付け加える場合、配列(0,0)とか使わないで下さい。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.