解決済み

VBSファイル名に特定文字がある場合

  • すぐに回答を!
  • 質問No.9576543
  • 閲覧数87
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 54% (79/146)

VBSで現在下記のようなコードを組んでいます。
動作としてはコードが組んであるVBSファイルにエクセルシートをドラック&ドロップすると、ブックのパスが外れてファイル名の先頭に
シート内のセルE5の文字がつくようになっています。

やりたいのはその後の処理で
たとえば、ブックの名前が先頭から#101-1ならAのフォルダへ移動
#101-2ならBのフォルダへ移動という感じのことがしたいです。

つまりファイル名に-1や-2といった文字が先頭から数えて5番のところにあれば
その条件に合わせてファイルを指定のフォルダへ移動させたいということです。
正式には-が先頭から5文字目で数字が先頭から6番になります。

どのようにすればよいか教えてください。
Option Explicit
'Excel 2013 Later Japenese Version Available
'REF:
'REF:
'''///---定数の設定Set Enumuragion---///'''
Const PWD="aaaaa"
Const msoLanguageIDInstall = 1
'''///---変数の宣言---///'''

Dim objArgs, I , strFile
Dim objFile, objFolder,objPath,strScr
Dim xlApp,Wb
Dim objWShell : Set objWShell = Createobject("WScript.Shell")
Dim FSO : Set FSO = Createobject("Scripting.FileSystemObject")

'''///---ファイル処理開始 Start Document File Conversion---///'''
Set objArgs = Wscript.Arguments
For I = 0 to objArgs.Count-1
set objFile = FSO.GetFile(cstr(objArgs(I)))
If Lcase(Left(FSO.GetExtensionName(objFile.Path) ,4) )="xlsx" Then
Set xlApp =CreateObject("Excel.Application")
If xlApp.Version < 14 Then xlApp.Quit: Set xlApp = Nothing:wscript.Quit
xlApp.DisplayAlerts=False
xlApp.Visible = False
set wb=xlapp.WorkBooks.Open(objFile.Path,0,false,,PWd,,True,,false,false,,true,true)
if wb.HasPassword=true then
wb.Saveas objFile.Path,,"","",False
else
wb.Saveas objFile.Path,,Pwd,"",False
End if

Dim n
n = wb.Worksheets(1).Range("E5").Value & "_" & wb.Name
wb.close
FSO.GetFile(objFile.Path).Name = n

set wb=nothing
End If
Next
xlApp.DisplayAlerts=True
xlApp.Quit
set xlApp = Nothing

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

  • 回答No.1

ベストアンサー率 62% (416/665)

Visual Basic カテゴリマスター
>FSO.GetFile(objFile.Path).Name = n
If Mid(objFile.name, 5, 2) = "-1" Then
FSO.MoveFile objFile.path, "F:\A\"
ElseIf Mid(objFile.name, 5, 2) = "-2" Then
FSO.MoveFile objFile.path, "F:\B\"
Else
MsgBox objFile.Name & " 該当せず"
End If
>set wb=nothing
>End If
> Next
> xlApp.DisplayAlerts=True
> xlApp.Quit
>set xlApp = Nothing
お礼コメント
yyrd0421

お礼率 54% (79/146)

頂いたコードでやりたことができました。
ありがとうございました。
投稿日時 - 2019-01-11 11:26:40
感謝経済
AIエージェント「あい」

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

関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

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

キーワードでQ&A、テーマを検索する

特集


感謝でトクする時代へ!感謝経済に参加しよう!

ピックアップ

ページ先頭へ