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

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

ただいまの
回答率

89.99%

vb.netでのエラー 名前空間では有効ではないステートメントです

解決済

回答 1

投稿

  • 評価
  • クリップ 0
  • VIEW 248

banianizm

score 88

前提・実現したいこと

vb.netでエクセルを出力するプログラムを作成しています。
ネット上のコードをコピーしてそのまま使っているのですが、エラーになります。
解決方法、考え方を教えていただきたいです。
なお、VBに関しては初めて扱う言語ですので、専門用語をあまり使わずに教えていただければと思います。
以上、よろしくお願い致します。

発生している問題・エラーメッセージ

4行目で

名前空間では有効ではないステートメントです

該当のソースコード

Imports Microsoft.Office.Interop
Imports System.Runtime.InteropServices

Protected Sub ExcelCreate()

    '定義
    Dim app As Excel.Application = Nothing
    Dim book As Excel.Workbook = Nothing
    Dim sheet As Excel.Worksheet = Nothing

    Try
        'シートの作成
        app = New Excel.Application()
        app.Workbooks.Add()
        book = app.Workbooks(1)
        sheet = CType(book.Worksheets(1), Excel.Worksheet)

        'シート名を設定する
        sheet.Name = "シート1"

        'セルに値をセットする(セル名で指定する場合)
        sheet.Range("A1").Value = "ABC"

        'セルに値をセットする(番号で指定する場合)
        sheet.Cells(2, 1) = "DEF"   '2行・1列目(A2セル)

        '保存する
        book.SaveAs("C:\sample.xlsx")

    Catch ex As Exception
        Throw ex

    Finally
        'オブジェクト解放
        app.Quit()
        Marshal.ReleaseComObject(sheet)
        Marshal.ReleaseComObject(book)
        Marshal.ReleaseComObject(app)

    End Try
End Sub

試したこと

エラーの意味が」良くわからないので試すことができません

補足情報(FW/ツールのバージョンなど)

vb2019でのエラーです

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

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

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

    クリップを取り消します

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

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

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

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

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

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

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

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

    質問の評価を下げる

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

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

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

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

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

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

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

    詳細な説明はこちら

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

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

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

質問への追記・修正、ベストアンサー選択の依頼

  • kenshirou

    2019/09/18 11:11

    「ネット上のコードをコピーして」とのことですが、コピー元のサイトをご教示頂けますか。
    どのような掲載内容かは分かりませんが、そのコードを活用するためには、ある程度のスキルが必要かも知れません。

    キャンセル

  • banianizm

    2019/09/22 22:07

    ありがとうございます。
    自己解決できました。

    キャンセル

回答 1

checkベストアンサー

-1

SubやFunctionはモジュールの中やクラスの中等に記述しなければなりません。
Protectedとなっているのでクラス内での記述になるかと思いますが、そのコードのサイトには解説はなかったのでしょうか?

投稿

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2019/09/15 22:18

    ありがとうございます。
    解説はありませんでした。
    そうすると、クラスを作り、これらをクラスの中に入れればよいということですか?

    キャンセル

  • 2019/09/16 00:56

    どのように実装するかについては貴方次第です。
    分からないのであれば、Protecedにせずモジュール内に書くのがいいでしょう。

    今後ここからどのような処理を作成されるのか分かりませんがMicrosoft.Office.Interop.Excelを使用する場合は解放漏れがあるとExcelのプロセスが残りますので注意してください。
    ただエクセルファイルを作成したいだけなのであれば、他のライブラリを使用する方法のほうがいいかもしれません。

    キャンセル

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

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