[[20210301134135]] 『実行時エラー1004の原因』(sugar) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『実行時エラー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


トピ主というより閲覧(または回答しようと)している方の参考になるかもしれないので提示しておきます。
気になる部分まで↓とよく似ていますので、もしかしたら同じ方かもしれません。
[[20210122143920]] 『データの最終行までコピー』(Help)

(もこな2 ) 2021/03/01(月) 15:05


ねむねむ。さん
もこな2。さん

ありがとうございました。無事解決いたしました。
(sugar) 2021/03/01(月) 16:18


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.