|
NECオフコン関連
オフコン一般
情報
|
| ファイルディレクトリの表示内容をExcelで |
投稿者： わかば 投稿日時： 2005-5-31 15:46:00
ソース名などの管理が必要となり、以下のマクロを作成しました。
既知情報とは思いますが、ご参考まで。
【準備】
1. Excel起動
2. シート見出し(Sheet1)でマウス右クリック
3. [コードの表示]マウス左クリック
コードに下記 Worksheet_Change()の内容をコピー＆ペースト
4. 名前を付けてExcel保存
【使い方】
--- AVX操作 ---
1. PC/WSエミュレータから#ABC で表示→ファイルディレクトリ…
2. メニューバーの[編集]→[範囲指定]
3. マウスの左ボタンを押しながら、複写範囲を選択
4. メニューバーの[編集]→[コピー]（[CTRL]を押しながら[C]と同じ）
--- EXCEL操作 ---
5. 準備で保存したExcelブックを開く
6. Sheet1の一番左上セルにカーソルを移動する
7. メニューバーの[編集]→[貼り付け]]（[CTRL]を押しながら[V]と同じ）
以上です
例えば下記AVX表示内容をコピーして、
ExcelのWorksheets(1)の左上へ貼り付けます。
+--------------------------------------------------------+
| NO NAME REV CREATED UPDATED LANG SECTORS|
| 002 CPYHN3 0009 93/12/06 05/05/20 CBL 00005 |
| 003 CPYHSM 0009 93/12/06 05/05/20 CBL 00005 |
+--------------------------------------------------------+
すると、自動的にWorksheets(2)へNO,NAME,,,SECTORSの値が設定されます。
（Excel 2003 で動作確認済）
'---------------<この下から>----------------------------
'#ABC ファイルディレクトリの表示内容をExcel上で項目分割するマクロ
Private Sub Worksheet_Change(ByVal Target As Range)
'情報取得開始位置
Const LC_NO_P As Integer = 1
Const LC_NAME_P As Integer = 7
Const LC_REV_P As Integer = 17
Const LC_CREATED_P As Integer = 23
Const LC_UPDATED_P As Integer = 33
Const LC_LANG_P As Integer = 43
Const LC_SECTORS_P As Integer = 50
'情報取得桁
Const LC_NO_W As Integer = 6
Const LC_NAME_W As Integer = 10
Const LC_REV_W As Integer = 6
Const LC_CREATED_W As Integer = 10
Const LC_UPDATED_W As Integer = 10
Const LC_LANG_W As Integer = 7
Const LC_SECTORS_W As Integer = 7
'AVXの情報をEXCELへ貼り付ける位置（シートの一番左上）
Const LC_貼付行 As Double = 1
Const LC_貼付列 As Integer = 1
'終了行を求める際に、必要（EXCELの一番下の行）
Const LC_一番下 As Double = 65536
'処理対象範囲
Dim LC_開始行 As Double
Dim LC_終了行 As Double
Dim LC_設定行 As Double
'ここから処理開始 ----
'> 処理対象範囲
LC_開始行 = LC_貼付行
LC_終了行 = Cells(LC_一番下, LC_貼付列).End(xlUp).Row
'> 情報設定先のクリア
Worksheets(2).Cells= ""
'> 情報設定
For LC_設定行 = LC_開始行 To LC_終了行
LC_文字列 = Cells(LC_設定行, LC_貼付列)
Worksheets(2).Cells(LC_設定行, LC_貼付列) = Mid(LC_文字列， LC_NO_P, LC_NO_W)
Worksheets(2).Cells(LC_設定行, LC_貼付列 + 1) = Mid(LC_文字列, LC_NAME_P, LC_NAME_W)
Worksheets(2).Cells(LC_設定行, LC_貼付列 + 2) = Mid(LC_文字列, LC_REV_P, LC_REV_W)
Worksheets(2).Cells(LC_設定行, LC_貼付列 + 3) = "'" & Mid(LC_文字列, LC_CREATED_P, LC_CREATED_W)
Worksheets(2).Cells(LC_設定行, LC_貼付列 + 4) = "'" & Mid(LC_文字列, LC_UPDATED_P, LC_UPDATED_W)
Worksheets(2).Cells(LC_設定行, LC_貼付列 + 5) = Mid(LC_文字列, LC_LANG_P, LC_LANG_W)
Worksheets(2).Cells(LC_設定行, LC_貼付列 + 6) = Mid(LC_文字列, LC_SECTORS_P, LC_SECTORS_W)
Next
End Sub
'---------------<この上まで>----------------------------
|
|
