エクセル(Excel)&ワード(Word)質問掲示板

より見やすく使いやすいエクセル掲示板を目指し、新たにエクセルの質問掲示板を開設いたしました。 これに伴い、当サイトでは今後、新規投稿はできなくなります。(閲覧は当面可能です。)
今後は新掲示板をご利用いただきますよう宜しくお願い致します。今後ともよろしくお願い致します。
○新掲示板
エクセル(Excel)解決掲示板

エクセル・ワードの基本操作に関する質問や関数やマクロの使い方などエクセルとワードに関する質問掲示板。
Welcome Guest 
メインメニュー
ログイン
ユーザー名:

パスワード:


パスワード紛失

15Hをマクロ化

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2010-2-14 23:05
ゲスト    投稿数: 0
'**************************************************************************
'** VBS名 : (P)H配信ファイル判定.vbs
'** 作成日  : 2010.02.14
'** 作成者  : tester
'** 処理概要 : (P)H配信ファイル判定処理
'** 変更日 変更内容 変更者
'** yyyymmdd ここに変更内容記述する。 xxxxxx
'**************************************************************************

'********変数強制宣言********
Option Explicit

'********オブジェクト変数定義********
Dim FSO , LOG , INP_OBJ

'********配列宣言************
Dim INP_FILENAME
INP_FILENAME = Array("P4.TXT" , "P5.TXT" , "P6.TXT" , "P9.TXT" , "P0.TXT" , _
"P1.TXT" , "P2.TXT" , "P3.TXT" , "P4.TXT")

'********カウント変数宣言************
Dim i

'********フォルダ変数宣言************
Dim MAIN_DIR , INP_DIR , LOG_DIR

'********ファイル変数宣言************
Dim LOG_FILE , LOG_FILENAME

'********その他変数宣言************
Dim LINE

'********初期設定********
MAIN_DIR = "D:\IFFILE"
INP_DIR = MAIN_DIR & "\S\SE\P
LOG_DIR = MAIN_DIR & "\LOG"
LOG_FILE = "CHECK_LOG.txt"
LOG_FILENAME = LOG_DIR & "\" & LOG_FILE

i = 0
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set LOG = FSO.OpenTextFile(LOG_FILENAME, 2, True)


'********処理開始時間********
CALL LOG_LINE(LINE,"メイン","開始")
LOG.WriteLine(LINE)
LOG.WriteBlankLines(1)

'********ファイル存在確認処理********

CALL LOG_LINE(LINE,"ファイル存在確認","開始")
LOG.WriteLine(LINE)
LOG.WriteBlankLines(1)

For i = 0 to 8

IF FSO.FileExists(INP_DIR & "\" & INP_FILENAME(i)) THEN
LOG.WriteLine(INP_FILENAME(i) & "は存在しています。")
ELSE
LOG.WriteLine(INP_FILENAME(i) & "は存在していません。")
LOG.WriteBlankLines(1)
CALL LOG_LINE(LINE,"ファイル存在確認","終了")
LOG.WriteLine(LINE)
LOG.WriteBlankLines(1)
CALL LOG_LINE(LINE,"判定結果","開始")
LOG.WriteLine(LINE)
LOG.WriteBlankLines(1)
LOG.WriteLine("異常終了")
LOG.WriteBlankLines(1)
CALL LOG_LINE(LINE,"判定結果","終了")
LOG.WriteLine(LINE)
LOG.WriteBlankLines(1)
CALL LOG_LINE(LINE,"メイン","終了")
LOG.WriteLine(LINE)
WSCRIPT.QUIT
END IF

NEXT

LOG.WriteBlankLines(1)
CALL LOG_LINE(LINE,"ファイル存在確認","終了")
LOG.WriteLine(LINE)
LOG.WriteBlankLines(1)

'********ファイル更新日時確認処理********

CALL LOG_LINE(LINE,"ファイル更新日時確認","開始")
LOG.WriteLine(LINE)
LOG.WriteBlankLines(1)

For i = 0 to 8

Set INP_OBJ = FSO.Getfile(INP_DIR & "\" & INP_FILENAME(i))

LOG.WriteLine(INP_FILENAME(i) & "の更新日時は " & INP_OBJ.DateCreated)

NEXT
LOG.WriteBlankLines(1)
CALL LOG_LINE(LINE,"ファイル更新日時確認","終了")
LOG.WriteLine(LINE)
LOG.WriteBlankLines(1)

'********処理終了時間********
CALL LOG_LINE(LINE,"メイン","終了")
LOG.WriteLine(LINE)
LOG.WriteBlankLines(1)



Set FSO = Nothing

SUB LOG_LINE(LINE,SHORIMEI,ACTION)

'********時間変数宣言********
Dim YYYY , MM1 , DD , HHMMSS , HH , MM2 , SS , PRIME_DATE , PRIME_TIME

YYYY = Year(DATE)
MM1 = MONTH(DATE)
DD = DAY(DATE)
HH = Right("0" & Hour(TIME), 2)
MM2 = Right("0" & Minute(TIME), 2)
SS = Right("0" & Second(TIME), 2)

PRIME_DATE = YYYY & "/" & MM1 & "/" & DD
PRIME_TIME = HH & ":" & MM2 & ":" & SS

LINE = "★★★**************  処理日 = " & PRIME_DATE & " " & SHORIMEI & "処理" & ACTION & "時間= " & PRIME_TIME & "  ***************★★★"

END SUB


これをマクロ化できないだろうか?
投票数:60 平均点:5.00
返信する

このトピックに投稿する

題名
ゲスト名   :
投稿本文

  条件検索へ


スポンサーリンク
スポンサーリンク
エクセル・ワード質問/回答集 - クイズ・問題QUUS! - 無料英語学習 - 投資家・トレーダー掲示版
為替(FX)テクニカル分析入門 - エクセル(EXCEL)学習・入門 - Word(ワード)の使い方/活用・入門
Copy right(c) 2006-2010 エクセル&ワード質問掲示板 all right reserved