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

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

ただいまの
回答率

90.52%

  • VBScript

    221questions

    VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

VBSを使ってcsvファイル名を変更したい

解決済

回答 2

投稿

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

ayapre

score 2

 前提・実現したいこと

フォルダ内にある大量のcsvファイルのファイル名をvbsで一気に変更しています。
普段は3つのセルの情報を抽出してますが、今回さらにもう1つのセルの内容もファイル名に付けたいです。
中身を修正”d”を追加し実行したら以下のエラーメッセージが発生しました。

行:24
文字:1
エラー:この変数は宣言されていません。:’d’
コード:800014
ソース:Microsoft VBSscript実行時エラー

 該当のソースコード

Option Explicit
Public a, b, bk, c, ex, f, gf, i, l, sh, so, x, y
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder(".")
Set ex = CreateObject("Excel.Application")
ex.Application.DisplayAlerts = False
ex.Visible = False
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "csv" Then
Set bk = ex.Workbooks.Open(gf & "\" & f.Name)
Set sh = bk.Worksheets(1)
a = sh.Range("A2").Text
x = a
Call z
a = x
b = sh.Range("B2").Text
x = b
Call z
b = x
c = sh.Range("D2").Text
x = c
Call z
c = x
d = sh.Range("H2").Text
x = d
Call z
d = x
bk.Close
Set sh = Nothing
Set bk = Nothing
f.Name = a & "_" & b & "_" & c &  "_" & d &".csv"
End If
Next
ex.Quit
Set ex = Nothing
Set gf = Nothing
Set so = Nothing
MsgBox("Finished!")

Sub z
y = Array("\", "/", ":", "*", "?", Chr(34), "<", ">", "|")
For i = 0 to 8
x = Replace(x, y(i), "")
Next
End Sub

 試したこと

4つめのセルの情報
d = sh.Range("H2").Text
x = d
Call z
d = x
を追加した

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

ここにより詳細な情報を記載してください。

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

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

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

    クリップを取り消します

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

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

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

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

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

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

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

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

    質問の評価を下げる

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

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

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

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

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

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

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

    詳細な説明はこちら

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

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

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

回答 2

+3

処理は確認していませんが、エラーについては、

Public a, b, bk, c, ex, f, gf, i, l, sh, so, x, y


上記でdが宣言されていません。

投稿

編集

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2018/04/27 10:27

    ありがとうございます。そこに d を追加したら進みましたが違うエラーが出ました

    31行目
    f.Name = a & "_" & b & "_" & c & "_" & d & ".csv"

    が書き込みできませんとエラーが出ました
    ここもdを追加したのですが、おかしいですか?

    キャンセル

  • 2018/04/27 10:36

    最初のエラーは、変数の宣言についてのエラーですから、今回のエラーは別です。
    変更しようとしている名前が既に存在していないか確認してみて下さい。

    キャンセル

  • 2018/04/27 10:50

    ありがとうございます!
    確認しましたが変更しようとしているファイル名がダブることはないのです。。他にどんな問題がありますか?

    行:31
    文字:1
    エラー:書き込みできません。
    コード:800A0046
    ソース:Microsoft VBSscript実行時エラー

    キャンセル

  • 2018/04/27 11:01

    そのファイルに対して、権限はありますか?

    キャンセル

  • 2018/04/27 11:07

    回答ありがとうございます!!
    権限はあるのですが、ひとつのファイルが開いてもないのに誰かが開いてるという現象が起きていました。
    なんどもエラーを出してなんかおかしなことになっていたのでしょうかわかりませんが
    フォルダをコピーしてやり直したらできました!!
    ご丁寧に対応いただきありがとうございましたm(_ _"m)

    キャンセル

check解決した方法

0

Public a, b, bk, c, d, ex, f, gf, i, l, sh, so, x, y

dを追加して宣言したらできました。

投稿

  • 回答の評価を上げる

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

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

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

  • 回答の評価を下げる

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

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

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

  • 2018/04/27 11:15

    ここへ書き込むことではないのかもしれませんが
    このサイトで質問し解決するのが初めてでよくわかっていなくて。
    こんな感じで完了させるのでよかったのでしょうか?
    回答いただいた方へ何かお礼のようなものや評価など抜けていることがあるのではないでしょうか・・・

    キャンセル

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

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

関連した質問

  • 解決済

    初心者です。Fanctionを使用して1から9までの数値を書き込む

    初心者です。Fanctionを使用して1から9までの数値を書き込む スクリプトにつきまして。 テキストへ1から9までの数値を書き込むスクリプトを 作成中です。 以下

  • 解決済

    つExcel.マクロ.VBお助けください。

    エクセルでマクロを組んでいます   別ファイルの指定した個所の値を取り込みたいです。 途中までは動いているのですが指定した個所の値ではなく、 なぜか空白になってしまってい

  • 解決済

    テキストファイル読み込みスクリプト

    テキスト読み込みスクリプトについて。 あるデータが出力されたテキストファイルがあります。 そのテキストを読み込み、エクセルファイルに出力したいです。 出力されるデータ

  • 解決済

    ランタイム版AccessマクロVBSバッチからの実行方法

    前提・実現したいこと VBSバッチからaccessマクロを実行したい。 発生している問題・エラーメッセージ 開発環境にはaccess2013がインストールされていたため

  • 解決済

    VBAのDictionaryオブジェクトの質問

    Dictionaryオブジェクトを使って割り付けをしています。 2つのシートがあります。 『抽出結果』シートと『条件』シートです。 『条件』シートのA列、B列、c~複数列にデ

  • 解決済

    VBA高速化について

    20個のエクセルファイルを読み込み、特定のシートにあるテーブルから特定の値を探し出し、その右横にあるセルの値を取り出します。 集計用のエクセルのテーブルでも、同じ特定の値をテーブル

  • 解決済

    vbs:csv条件毎結合の方法が知りたい

    実現したいこと 同じフォルダの中に"AAA"から始まるファイル名と"ccc"から 始まるファイルの2種類のCSVがあり、ファイル名を項目追加し、 vbsにて種類毎に結合したい。

  • 解決済

    VBS RegReadについて

    キーの存在チェックを行いたいのですが '■===キーの存在チェック=== Function JOB_Key_Check() dim bExists ssig="

同じタグがついた質問を見る

  • VBScript

    221questions

    VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。