HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 ファイル一覧 検索 過去ログ

■1492 / 1階層) 　Excelのシート名の変更
□投稿者/ ななーし -(2024/08/09(Fri) 08:12:29)
    2024/08/09(Fri) 08:13:34 編集(投稿者)

    VBSで実施できます。
    なお、VBSのコードは自分が作らなくとも作成したい要望をChatGPTに依頼すれば以下のようにつくってくれます。

    VBSはメモ帳に以下コードを保存し、保存時のファイル名を○○〇.vbsにすればOKです。
    検索するまたはChatGPTに聞いてみてください。

    Dim objExcel, objWorkbook, objSheet
    Dim filePath
    Dim i

    ' ドラッグアンドドロップされたファイルのパスを取得
    If WScript.Arguments.Count > 0 Then
    filePath = WScript.Arguments(0)
    Else
    WScript.Echo "ドラッグアンドドロップされたファイルがありません。"
    WScript.Quit
    End If

    ' Excelアプリケーションを作成
    Set objExcel = CreateObject("Excel.Application")
    objExcel.Visible = False
    objExcel.DisplayAlerts = False

    ' Excelファイルを開く
    Set objWorkbook = objExcel.Workbooks.Open(filePath)

    ' シート名を変更
    i = 1
    For Each objSheet In objWorkbook.Sheets
    objSheet.Name = "AAA" & IIf(i > 1, i, "")
    i = i + 1
    Next

    ' Excelファイルを保存して閉じる
    objWorkbook.Save
    objWorkbook.Close False

    ' Excelを終了
    objExcel.Quit

    ' オブジェクトの解放
    Set objSheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing

    ChatGPT依頼文
    次のVBSプログラムを作成してください。
    VBSファイルにドロップアンドドロップしたEXCELファイルを編集します。
    編集内容はEXCELファイルを開き、シート名を「AAA」に変更。変更後に閉じます
    シートが複数ある場合はAAA2、AAA3とします。
[メール受信/OFF] 削除キー/

→Re[2]: Excelのシート名の変更 /田代正美
　
前の記事(元になった記事) 次の記事(この記事の返信)
上記関連ツリー

Nomal Excelのシート名の変更 / 田代正美 (24/08/06(Tue) 17:24) #1490
├Nomal Re[1]: Excelのシート名の変更 / ONnoji (24/08/08(Thu) 12:34) #1491
│└Nomal Re[2]: Excelのシート名の変更 / 田代正美 (24/08/10(Sat) 09:08) #1493
└Nomal Excelのシート名の変更 / ななーし (24/08/09(Fri) 08:12) #1492 ←Now
  └Nomal Re[2]: Excelのシート名の変更 / 田代正美 (24/08/10(Sat) 09:10) #1494

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
　
上記の記事へ返信
Mode/　 Pass/

HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 ファイル一覧 検索 過去ログ

- Child Tree -
- Antispam Version -