アドバイスお願いします 0265名無しさん@そうだ選挙にいこう2024/04/24(水) 19:16:48.12 ありがとうございます 普通にそれが出来なくて??でした。 人の作った見積もりだったのでうまくいかなかったのかもしれません(恥) もう一度やってみます 0266名無しさん@そうだ選挙にいこう2024/04/24(水) 21:27:54.81>>261 新シートのB1=(SHEET1,A1:A50) 0267名無しさん@そうだ選挙にいこう2024/04/24(水) 21:36:52.02 Sub CopyDataFromExcelFile() Dim filePath As String Dim wb As Workbook Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim sourceRange As Range Dim targetRange As Range ' ファイルを選択 filePath = Application.GetOpenFilename("Excel Files (*.xls; *.xlsx), *.xls; *.xlsx") If filePath = "False" Then MsgBox "ファイルが選択されていません。" Exit Sub End If ' ワークブックを開く Set wb = Workbooks.Open(filePath) ' ソースシートとターゲットシートを指定 Set wsSource = wb.Sheets("Sheet1") Set wsTarget = ThisWorkbook.Sheets("Sheet1") ' コピー元の範囲を指定 Set sourceRange = wsSource.Range("A1:H20") ' コピー先の範囲を指定 Set targetRange = wsTarget.Range("A1:H20") ' データをコピー sourceRange.Copy Destination:=targetRange ' ワークブックを閉じる wb.Close SaveChanges:=False End Sub 0268警備員[Lv.1][新][苗][芽]2024/04/24(水) 22:23:27.74 test 0269名無しさん@そうだ選挙にいこう2024/04/25(木) 01:28:12.01 マクロのネタとかスレ違いだろ。マクロ板でやれや 0270名無しさん@そうだ選挙にいこう2024/04/25(木) 12:54:57.43 しつもんか回答以外スッ込んでろ >>264 xSHEET=(ySHEET,A1:H1) 0271名無しさん@そうだ選挙にいこう2024/04/25(木) 21:11:59.36 氏ね 0272名無しさん@そうだ選挙にいこう2024/04/25(木) 21:20:26.69>>270 ほんまそれ 0273名無しさん@そうだ選挙にいこう2024/04/26(金) 21:13:14.81>>267>>270 ありがとう やりたいことできました 0274名無しさん@そうだ選挙にいこう2024/04/27(土) 14:57:45.66 えっ 0275名無しさん@そうだ選挙にいこう2024/04/28(日) 00:40:41.80 【1 OSの種類 .】 Windows11 【2 Excelのバージョン 】 Excel2021 【3 VBAが使えるか .】 いいえ 【4 VBAでの回答の可否】 可