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

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

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

パスワード:


パスワード紛失

VBSをマクロ化?bisi

前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2010-1-17 18:58
ゲスト    投稿数: 0
'********変数強制宣言********
Option Explicit

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

'********カウント変数宣言************
Dim CNT , ERR_CNT

'********フォルダ変数宣言************
Dim TARGET_FOLDER , LOG_FOLDER

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

'********レコード長変数宣言************
Dim RECORD_LENGTH

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

'********メッセージ変数宣言********
Dim OK_MESSAGE , NG_MESSAGE

'********その他変数宣言********
Dim FILE_SIZE , FILE_DAY , FILE_VALUE

'********初期設定********

TARGET_FOLDER = "D:\test\vbs_FOLDERCHECK_LOG"
LOG_FOLDER = "D:\test\vbs_FOLDERCHECK_LOG"
TARGET_FILE = "FB"
LOG_FILE = "ORI_DATE_CHECK_LOG.txt"
TARGET_FILENAME = TARGET_FOLDER & "\" & TARGET_FILE
LOG_FILENAME = LOG_FOLDER & "\" & LOG_FILE &
TARGET_FILE_MEISHOU = "データ"
RECORD_LENGTH = 340
CNT = 0
ERR_CNT = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.GetFile(TARGET_FILENAME)
OK_MESSAGE = "正常終了"
NG_MESSAGE = "異常終了"

'********処理開始時間********
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)

Set LOG = FSO.OpenTextFile(LOG_FILENAME, 8)
LOG.WriteLine("処理日 = " & YYYY & "/" & MM1 & "/" & DD & " 処理開始時間= " & HH & ":" & MM2 & ":" & SS & "")

'********ファイルサイズ・ファイル更新日時取得処理********
FILE_SIZE = f.size
FILE_DAY = f.DateLastModified

'********レコード件数取得処理(改行有)********
With FSO.GetFile(TARGET_FILENAME).OpenAsTextStream(8)
CNT = .Line
.Close
End With

Msgbox CNT

'********レコード件数判定処理(改行無)********
CNT = FILE_SIZE / RECORD_LENGTH
Msgbox CNT

FILE_VALUE = Fix(CNT)

IF not FILE_VALUE = CNT Then
ERR_CNT = 1
Else
END IF

'********判定結果出力処理********
LOG.WriteBlankLines(1)
LOG.WriteLine("検索ファイル名 = " & TARGET_FILE & "")
LOG.WriteBlankLines(1)
LOG.WriteLine("検索ファイル名称 = " & TARGET_FILE_MEISHOU & "")
LOG.WriteBlankLines(1)
LOG.WriteLine("検索フォルダ名 = " & TARGET_FOLDER & "")
LOG.WriteBlankLines(1)
LOG.WriteLine("検索レコード件数 = " & CNT & " 件")
LOG.WriteBlankLines(1)

IF ERR_CNT = 0 Then
LOG.WriteLine("" & OK_MESSAGE & "")
Else
LOG.WriteLine("" & NG_MESSAGE & "")
END IF

'********処理終了時間********
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)

LOG.WriteBlankLines(1)
LOG.WriteLine("処理日 = " & YYYY & "/" & MM1 & "/" & DD & " 処理終了時間= " & HH & ":" & MM2 & ":" & SS & "")
LOG.WriteBlankLines(3)
LOG.Close

Set FSO = Nothing

これをマクロ化出来ないだろうか?
投票数:68 平均点:4.71
返信する

このトピックに投稿する

題名
ゲスト名   :
投稿本文

  条件検索へ


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