選択したブックのシートをコピー～データ集計業務に即したマクロVBA へのコメント https://nujonoa.com/vba-bookcopy/ 人生に役立つデータ集 Wed, 17 Apr 2024 03:03:22 +0000 hourly 1 https://wordpress.org/?v=6.8.3 南　邦治 より https://nujonoa.com/vba-bookcopy/#comment-1721 Wed, 17 Apr 2024 03:03:22 +0000 http://nujonoa.com/?p=227#comment-1721 お世話になります。
素早しご返信ありがとうございます！
前者だと「型が一致しません」でしたが、
後者でバッチリ動きました。
ご教授頂きありがとうございました。

]]> nujonoa より https://nujonoa.com/vba-bookcopy/#comment-1720 Tue, 16 Apr 2024 08:55:45 +0000 http://nujonoa.com/?p=227#comment-1720 南　邦治 への返信。

If OpenFileName1 = "False" Then Exit Sub

で、いけませんでしょうか？？
もしくは、

' ユーザーがキャンセルボタンをクリックした場合の処理
If Not IsArray(OpenFileName1) Then
MsgBox "ファイルの選択がキャンセルされました。", vbExclamation
Exit Sub
End If

でいけるかと？

]]> 南　邦治 より https://nujonoa.com/vba-bookcopy/#comment-1716 Tue, 16 Apr 2024 06:25:07 +0000 http://nujonoa.com/?p=227#comment-1716 お世話になります。
まさに自分のやりたいことがそのままでした！
大変参考になる記事でありがたく拝見いたしました。
一点質問なのですが、このコードの場合キャンセルボタンを押したときの処理はどのようにすればよろしいのでしょうか？
いろいろ試しましたがうまくいきませんでした。
ご教授頂けますと幸いです。

]]>