ここから本文です

VBAについて質問です。シートに取り込みを行いたいです。

lin********さん

2018/10/1812:25:30

VBAについて質問です。シートに取り込みを行いたいです。

・”A”シート内の取り込みボタンを押す
・参照先(.xls)のファイルを指定する
・そのファイルのA~N列を開いている”A”シートのA~N列に挿入
参照先は毎回違うのでファイルの選択をしたいです。
どのようなコードなのかご教授ください。
よろしくお願いします。

閲覧数:
30
回答数:
1
お礼:
50枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2018/10/1815:07:18

Sub 一例です()
Dim sh As Worksheet
Set sh = ActiveWorkbook.Worksheets("A")
With Application.FileDialog(msoFileDialogOpen)
With .Filters
.Clear
.Add "Excelブック", "*.xls"
End With
If .Show <> -1 Then Exit Sub
Application.ScreenUpdating = False
With Workbooks.Open(.SelectedItems(1))
.Worksheets(1).Range("A:N").Copy
sh.Range("A:N").Insert
Application.DisplayAlerts = False
.Close False
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
End With
End Sub

質問した人からのコメント

2018/10/20 18:32:36

素晴らしいです!
ありがとうございます!

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる