掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ExcelのデータをRangeで一気に取り込むには？ (ID：109675)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Private Sub Command1_Click() Dim objExcelApp As Workbook Dim arrData() As String Set objExcelApp = GetObject(App.Path & "\testdata.xls", "Excel.Sheet") With objExcelApp arrData() = .Worksheets(1).Range("A1").CurrentRegion.Value .Worksheets(2).Range("A1") = arrData() .Windows(1).Visible = True .SaveAs App.Path & "\test" & Format(Now, "yyyymmddhhmmss") & ".xls" .Application.Quit End With Set objExcelApp = Nothing End Sub 何がしたいか理解していただけますでしょうか？ こういう場合、どうすればよいのでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.