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

■1490 / 親記事) 　Excelのシート名の変更
  ▼■
□投稿者/ 田代正美 -(2024/08/06(Tue) 17:24:09)
    桐ではないのでこちらに書き込みさせていただいていいのでしょうか？

    ExcelのA.xlsxのファイルを桐Excelブリッジで桐に変換したいのですが
    毎回ワークシート名がまちまちなのです。
    Excelがまったくわからないのです。

    桐ではワークシート名の変更はできないので
    Excelで変更する方法はあるのでしょうか？

    どなたかご指導いただけるとありがたいのですが
引用返信 [メール受信/OFF] 削除キー/
■1491 / ResNo.1) 　Re[1]: Excelのシート名の変更
□投稿者/ ONnoji -(2024/08/08(Thu) 12:34:06)
    2024/08/09(Fri) 13:19:16 編集(投稿者)

    > 桐ではワークシート名の変更はできないので
    > Excelで変更する方法はあるのでしょうか？

    エクセルのＶＢＡを使う例はネットをググればたくさん見つかると思いますよ。

    ＶＢＡの他に Windows PowerShell でも可能だそうですよ。

    以下は、たくさんあるネット記事の一例です。

    > windows環境で Excel をプログラム言語で操作する方法に VBA がよく紹介されてますが、
    > Windows PowerShell でもお手軽に操作することが可能なので、紹介していきたいと思います。

    Windows PowerShell を使って Excel を操作する - シート操作編 | MSeeeeN
    https://mseeeen.msen.jp/sheets-operation-of-excel-with-powershell/

    PowerShell で Excel をいじる方法の備忘録 #初心者 - Qiita
    https://qiita.com/23fumi/items/aa65ffa2098509337d33

    ｐ．ｓ．

    ＶＢＡのほかにＶＢＳ( VBScript )も候補になりますが、かなり将来的な話ですが・・・

    VBScriptが非推奨になった？その理由と代替言語を解説
    https://and-engineer.com/articles/ZTKJXhIAACcA5gCV

    その点、後発の Windows PowerShell の方が心配がいりません。

    私( ONnoji )的には、これからというのであれば、Windows PowerShell をお勧めしますよ。

    ｐ．ｐ．ｓ．

    ダウンロードコーナーに掲載されている拙作では、UTF8 → UTF16 / ANSI 等の文字コード変換にバッチ( .bat )で PowerShell を実行していますよ。

    #207　God_Excel_Reader 第1.1版 for 桐10ｓ/ 桐ｓSL
    God_Excel_Reader.kex
    手続き名：prcBatPowershellReplaceCreate

    #206　イベント処理の整形ユーティリティ 第 3.91 版 　for 桐10 / 桐10ｓ / 桐ｓSL
    utx_list3.kex
    手続き名：prcBatPowershellReplaceCreate



引用返信 [メール受信/OFF] 削除キー/
■1492 / ResNo.2) 　Re[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] 削除キー/
■1493 / ResNo.3) 　Re[2]: Excelのシート名の変更
□投稿者/ 田代正美 -(2024/08/10(Sat) 09:08:44)
    ONnojiさん

    ありがとうございます。
    Excelがまったくわからないので
    勉強します。

    また質問するかもしれませんが
    よろしくお願いいたします。
引用返信 [メール受信/OFF] 削除キー/
■1494 / ResNo.4) 　Re[2]: Excelのシート名の変更
□投稿者/ 田代正美 -(2024/08/10(Sat) 09:10:33)
    ななーしさん

    ありがとうございます。
    Excel全くわからないので勉強します。

    わからないことが出てくるとおもいますので
    その時にはまたよろしくお願いいたします。
引用返信 [メール受信/OFF] 削除キー/


スレッド内ページ移動 / << 0 >>

このスレッドに書きこむ
Mode/　 Pass/

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

- Child Tree -
- Antispam Version -