[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『実行時エラー1004の原因』(sugar)
以下コードをネットより参照し組み込みましたが、
1004エラーが出るときと出ない時があります。
デバッグ「Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0」箇所になります
ポップアップの内容は「ファイル.xlsmが見つかりません変更または削除〜」になります。
ファイルは全て同一フォルダ内にあります
https://www.sejuku.net/blog/34439
上記等を手掛かりに試してみましたが、よくわかりませんでした
お力添え頂ければ幸いです
+--------------------------------------------------------------+
Sub マスタデータ取込() '指定したファイルを取り込み、別のファイルに貼り付ける。
Dim SetFile As String Dim wbMoto, wbSaki As Workbook
Set wbMoto = ActiveWorkbook 'マスターデータ取り込み元をブック名をセット(取り込み元)
Application.DisplayAlerts = False
SetFile = "ファイル.xlsm" 'マスターデータファイルの取り込み場所をセット(取り込み先)
Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0 Set wbSaki = Workbooks.Open(SetFile) '開いたマスターブック名とセット(取り込み先)
wbSaki.Worksheets("条件表M").Range("A1:H101").Copy '取り込み先のシート名の「項目M」セルA1:B20の範囲をコピー
wbMoto.Worksheets("条件表").Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False 'コピー切り取りを解除
wbSaki.Close False 'マスターデータ取り込み先のファイルを閉じる
Application.DisplayAlerts = True
End Sub
< 使用 Excel:Office365、使用 OS:Windows10 >
SetFile = "ファイル.xlsm" を SetFile = ThisWorkbook.Path & "\ファイル.xlsm" としてはどうだろうか? (ねむねむ) 2021/03/01(月) 14:03
質問の答え自体は、ねむねむさんがすでにアドバイスされていますので、そのほかで気になるところなど。
■1
Dim wbMoto, wbSaki As Workbook ダメではないですが↑の部分で「wbMoto」はValiant型になってますよ。
■2
Workbooks.Open fileName:=SetFile, ReadOnly:=True, UpdateLinks:=0 Set wbSaki = Workbooks.Open(SetFile)
最初のほういらないですよ。(2行目だけで開くのも兼ねてます)
■3
Application.CutCopyMode = False 'コピー切り取りを解除
どうせ閉じちゃうのでなくても大丈夫です。
■4
saki と moto なんか意味が逆だと思います。
(もこな2 ) 2021/03/01(月) 14:40
(もこな2 ) 2021/03/01(月) 15:05
ありがとうございました。無事解決いたしました。
(sugar) 2021/03/01(月) 16:18
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.