|
▼あき さん:
>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まで
|
|