Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


14202 / 76738 ←次へ | 前へ→

【68035】Re:CSVデータの検索について
発言  SK63  - 11/1/26(水) 15:24 -

引用なし
パスワード
   ▼あき さん:
>SK63さんJakaさんありがとうございます。
>SK63さんすみません
>>Dim FSO As New FileSystemObject
>なのですが、「コンパイルエラー」と表示され「ユーザ定義型は定義されていません」というエラーがでます。
>Excel2003では使えない変数なのでしょうか?

マクロのツールからMicrosoft Scripting Runtimeを
選択しておいて下さい、この辺りは普通に良く使用しますのですね、


'  [参照設定]
'  ・Microsoft Scripting Runtime

ソートのマクロはこんな感じです、

WBK3.Sheets(1).Columns("B:B").Select
WBK3.Sheets(1).Range("A1:F" & GYO).Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
    xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    SortMethod:=xlPinYin, DataOption1:=xlSortNormal

ファイルを開いて最後の行まで配列に取り込むコード(ファイル名は合わせて下さい)
Public GYO As Integer
Public Z As Variant
Public WBK1 As Workbook, WBK2 As Workbook, WBK3 As Workbook     
Public SH1 As Worksheet, SH2 As Worksheet, SH3 As Worksheet

TargetFile = ThisWorkbook.Path & "\" & Year(strday) & "DB業務報告.csv"
Workbooks.Open Filename:=TargetFile
Set WBK3 = ActiveWorkbook  ' 現在ブック
GYO = WBK3.Sheets(1).Range("$A$65536").End(xlUp).Row
Z = WBK3.Sheets(1).Cells(1, 1).Resize(gyo, 3).Value'A~Cまで

0 hits

【68025】CSVデータの検索について あき 11/1/26(水) 11:35 質問
【68026】Re:CSVデータの検索について SK63 11/1/26(水) 12:53 発言
【68027】Re:CSVデータの検索について Jaka 11/1/26(水) 12:56 発言
【68029】Re:CSVデータの検索について あき 11/1/26(水) 14:08 質問
【68031】Re:CSVデータの検索について Jaka 11/1/26(水) 14:55 発言
【68035】Re:CSVデータの検索について SK63 11/1/26(水) 15:24 発言
【68033】Re:CSVデータの検索について kanabun 11/1/26(水) 15:13 発言
【68036】Re:CSVデータの検索について あき 11/1/26(水) 17:19 お礼

14202 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free