質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.46%

  • VBA

    2398questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1975questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。

VBA:転記元のブック名を転記先シートのセルに転記したい

解決済

回答 3

投稿 編集

  • 評価
  • クリップ 1
  • VIEW 2,001
退会済みユーザー

退会済みユーザー

転記元のブック名を転記先シートのA列に転記していきたいのですが、
「実行時エラー91:オブジェクト変数またはwith変数が設定されていません。」
というエラーが出て、
下記コードの
copyWb_name = copyWb.Name
が黄色くハイライトされます。

Option Explicit
Sub データ読込()
    '転記元ファイルの取得用変数
    Const FILE_PATH = "C:あいうえお"
    Dim sFileName As String

    '転記元のシートの変数
    Dim copyWb As Excel.Workbook
    Dim copyWs As Excel.Worksheet
    '転記先のシートの変数
    Dim pasteWs As Excel.Worksheet
    '出力行
    Dim iPasteRow As Integer

    '転記先のシートを取得
    'マクロが書かれているブックの、アクティブなシート
    Set pasteWs = Excel.ThisWorkbook.ActiveSheet

    '出力する空白セルの指定
    Dim pasteCell As Excel.Range
    Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "A").End(xlUp).Offset(1)

    '出力行を取得(先頭行)
    iPasteRow = pasteCell.Row

    '対象フォルダからExcelファイル名を取得
    sFileName = Dir(FILE_PATH & "\*.xlsx*")
    If sFileName = "" Then
        'フォルダにExcelファイルが1つもない場合は処理終了
        Exit Sub
    End If

    '対象フォルダ内のすべてのExcelファイルをループ処理
    Do
        '転記元ブックをオープン
        Set copyWb = Workbooks.Open(FILE_PATH & "\" & sFileName)
        '転記元シートを取得
        Set copyWs = copyWb.Worksheets(1)   '先頭シート 

        '除外するものがあればここで条件を指定して転記処理に入れない
        If True = True Then
            '除外するもの以外は下記項目を転記処理

            '転記元ブック名を開いている転記元からコピーして転記先にペースト
                Set pasteCell = pasteWs.Cells(iPasteRow, "A")

                Dim copyWb_name As Excel.Range
                With copyWb
                copyWb_name = copyWb.Name
                End With

                pasteCell.Value() = copyWb_name.Value()


ネットで調べていくつか入れてみたのですが、いまいちどうソースコード変更すればよいのかわかりません。

どうかお助けください。

追記:

copyWb_name = copyWb.Name

Set pasteCell = pasteWs.Cells(iPasteRow, "A")

pasteCell.Value() = copyWb_name.Value()


と試しましたら、
copyWb_nameが「コンパイルエラー:変数が定義されていません」というエラーになります。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 3

checkベストアンサー

+2

Dim copyWb_name As String

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/01/31 15:16

    ご回答ありがとうございます。
    ファイル名は文字だから、as stringとdimすればよかったのですね。

    キャンセル

  • 2018/01/31 15:20

    そうです。変数を宣言した際の「型」が重要です。
    宣言した型とは違う処理が実行された場合に、
    ちゃんとエラーになってくれる事で、
    意図しない処理を発見できるものです。

    余談ながら「Dimension」の略です。
    VBA Dimension で検索すると詳しくわかるかと。

    キャンセル

  • 2018/02/02 14:37

    型と変数を調整しまして
    なんとかやっとうまく取得、転記できました!!!
    ありがとうございました!!

    キャンセル

+2

わざわざ変数を定義せずとも下記のように記述すればよいのでは?

pasteCell.Value = copyWb.Name

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/01/31 15:18

    ご回答ありがとうございます。
    これだけシンプルにできるのですね!

    キャンセル

+1

型の違うものに代入しようとしているからエラーになります。

                Dim copyWb_name As Excel.Range
                With copyWb
                copyWb_name = copyWb.Name ' Range型にテキストを代入しようとしている


特定のセルに代入するなら

pasteCell = copyWb.Name


だけで良いと思います。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2018/01/31 15:19

    ご回答ありがとうございました。
    定義がそもそもまだ理解よくできていなかったです。
    ご指摘いただくことで、一人で煮詰まらず、原因すこしずつわかるので助かりました。

    キャンセル

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 90.46%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

同じタグがついた質問を見る

  • VBA

    2398questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

  • Excel

    1975questions

    Excelは、マイクロソフト社が開発しているデータ集計や分析を行う表計算ソフトの一つです。文書作成や表計算、資料作成などの多彩な機能を備えており、統合パッケージであるMicrosoft Officeに含まれています。