[リストへもどる]
一括表示
投稿時間：2004/08/04(Wed) 17:17
投稿者名：EXEC
Ｅメール：
ＵＲＬ　：
タイトル：シート名の取得について
はじめまして。

    Dim Src As Object    'オブジェクト型
    Dim SheetNo As Integer

    For SheetNo = 18 To 25
    Set Src = Worksheets(SheetNo).Name

　　中略

    Next

上記コードの実行時に、「オブジェクトが必要です。」のメッセージが出ます。
コード上にシート名を記述せずにオブジェクト型のSrcにシート名を代入する方法をご教授頂きたく投稿しました。
よろしくお願いします。

投稿時間：2004/08/04(Wed) 19:54
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re: シート名の取得について
これは…VB6等ではなく、Excel VBAのコーディングのようですね。


>     Set Src = Worksheets(SheetNo).Name
Nameプロパティは、String型を返します。
String型はオブジェクトではないため、Setは使えません。

> コード上にシート名を記述せずにオブジェクト型のSrcにシート名を代入する方法を
Object型の変数に、文字列値を直接含める事はできません。

この場合は、
  Set Src = Worksheets(SheetNo)
  Debug.Print Src.Name
のような事ならば可能です。

投稿時間：2004/08/05(Thu) 05:10
投稿者名：EXEC
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: シート名の取得について
魔界の仮面弁士様

ご回答ありがとうございます。
来週の月曜に試してみて結果ご報告します。

投稿時間：2004/08/09(Mon) 10:37
投稿者名：EXEC
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: シート名の取得について
魔界の仮面弁士様

私が期待する結果が得られました。
ありがとうございました。