やっつけ仕事で、Excelのバージョンアップを自動で行うバッチファイルを作成しました。
以下覚書。

バージョン管理は、ローカルにver02.txt、サーバ側にver01.txtを置いて、その中身を比較。
ver01.txtに最新バージョンのバージョンNoを記載します。

rem ******************************************************************
rem 初期処理
rem ******************************************************************
:start
@echo off
setlocal enableextensions enabledelayedexpansion
set p=C:\hogehoge\
set ver01=0
set ver02=0

rem ******************************************************************
rem VerファイルGET
rem ******************************************************************
:verget
ftp -n -s:%p%param_01 > %p%LOG.TXT

rem ******************************************************************
rem Verファイルの内容を比較
rem ******************************************************************
:hikaku
for /F %%i in (%p%ver01.txt) do set ver01=%%i
for /F %%j in (%p%ver02.txt) do set ver02=%%j
if %ver01%==%ver02% goto excel

rem ******************************************************************
rem 最新版Excelダウンロード
rem ******************************************************************
:verup
ftp -n -s:%p%param_02 > LOG.TXT
copy %p%100.xls %p%hogehoge.xls
del %p%100.xls
IF not %ERRORLEVEL%==0 GOTO err

rem ******************************************************************
rem Excel起動
rem ******************************************************************
:excel
copy %p%ver01.txt %p%ver02.txt
start "hogehoge" %p%hogehoge.xls /max
if not %ERRORLEVEL%==0 GOTO err
rem ******************************************************************
rem 終了
rem ******************************************************************
:end
exit

rem ******************************************************************
rem エラー処理
rem ******************************************************************
:err
echo ******************************************************************
echo ******************異常終了****************************************
echo ******************************************************************
pause > null
exit

プロジェクト管理

Teambox

Tom's planner

文字コード変換コマンドnkfの使い方まとめ

文字コード変換コマンドnkfの使い方まとめ linux

S-JIS→UFT-8(BOMなし）に変換する際に参考にしたページ。

ファイルに出力する際はリダイレクトが必要

nkf -w S-JISファイル > UTF-8ファイル

LYNXからの投稿テスト

テストです

Published with Blogger-droid v1.5.9

ActiveWorkbook.SaveAsの1004save as methodエラー回避方法

■参考ページ
2000,2003,2007環境下でのマクロ保存コマンドについて


If Val(Application.Version) < 12 Then
ActiveWorkbook.SaveAs Filename:="ファイル名", FileFormat:=43 'Excel2003以下
Else
ActiveWorkbook.SaveAs Filename:="ファイル名", FileFormat:=56 'Excel2007
End If

MACアドレス検索サイト

http://www.coffer.com/mac_find/

10進数と2進数を変換する

10進数と2進数を変換する

マスタなどのフラグ情報を10進数で格納しているものを2進数に戻す場合に利用。
例）8ビットの場合
'■Convert10to2
'■機能：10進数を2進数に変換する。
Public Function Convert10to2(Value As Long) As String
Dim lngBit As Long
Dim strData As String

Do Until (Value < 2 ^ lngBit) If (Value And 2 ^ lngBit) <> 0 Then
strData = "1" & strData
Else
strData = "0" & strData
End If

lngBit = lngBit + 1
Loop

strData = Right("00000000" & strData, 8)

Convert10to2 = strData

End Function