• ベストアンサー
  • 困ってます

Access エクセルシート名変更

  • 質問No.3699261
  • 閲覧数2535
  • ありがとう数0
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 46% (6/13)

お世話になります。
WindowsXPでAccess2002を使用しているのですが、AccessVBAを使い特定のエクセルシートのシート名を変更したいと考えているのですが、いろいろ方法を検索しているのですが、そのような事例を発見する事ができませんでした。

引き続き調べて行きますが、良い方法がありましたら、ご教授いただけないでしょうか。
宜しくお願いします。

質問者が選んだベストアンサー

  • 回答No.1
  • ベストアンサー

ベストアンサー率 71% (1325/1856)

Excelがインストールされている環境なら
CreateObjectやNewでExcel.Applicationオブジェクトを作成して
その上で Bookを読み込み Worksheetの名前を変更すればいいのでは

sub Macro1()
Dim oXL as Object
Dim oWB as Object
Dim oSH as Object]
  Set oXL = CreateObject("Excel.Application")
  Set oWB = oXL.WorkBooks.Open("ブックのファイルパス")
  Set oSH = oWB.Worksheeets("シート名")
  oSH.Name = "変更後のシート名"
  oWB.Save
  oWB.Close
  oXL.Quit
  Set oSH = nothing
  Set oWB = nothing
  Set oXL = nothing
End Sub
といった具合でしょう
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,600万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ