- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：Excelで、他のExcelファイルからデータ抽出）
Excelで他のExcelファイルからデータ抽出
このQ&Aのポイント
- Excelのマクロを使って他のExcelファイルからデータを抽出する方法を教えてください。
- データ抽出の際にパスワード入力を省きたいです。また、特定の期間のデータを抽出する方法を知りたいです。
- 抽出先のセルにデータがない場合は、データを返さないようにしたいです。
- sjzh_982
- お礼率0% (0/2)
- その他MS Office製品
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Sub Sample1() Dim o As Object Dim w As Workbook Dim d1 As Date, d2 As Date Dim d, n Do d1 = Application.InputBox("start date", Type:=1) If d1 = 0 Then Exit Sub Loop Until IsDate(d1) Do d2 = Application.InputBox("end date", Type:=1) If d2 = 0 Then Exit Sub Loop Until IsDate(d2) On Error Resume Next n = 0 Set o = CreateObject("Excel.Application") Set w = o.Workbooks.Open(Filename:="c:\test\book1.xls", Password:=1) For d = d1 To d2 ThisWorkbook.Worksheets("Sheet1").Range("A1").Offset(n).Value = w.Worksheets(Format(d, "mmdd")).Range("A1").Value n = n + 1 Next d w.Close False Set o = Nothing End Sub
