②Open,Add,Sort

背景
投稿者投稿者どらねこ  いいね0  お気に入り登録
プレイ回数259  難易度(4.3) 328打 長文 英字
EXCEL VBA　データ高速処理　その２

関連タイピング

関連タイピング一覧

問題文

ふりがな非表示 ふりがな表示

(ｗｏｒｋｂｏｏｋｓ．ｏｐｅｎｔｅｘｔ　ｆｉｌｅｎａｍｅ：＝ｍｙｆｉｌｅ．ｎａｍｅ，　＿)

Workbooks.OpenText Filename:=MyFile.

(ｓｔａｒｔｒｏｗ：＝１，　＿)

StartRow:=1, _

(ｆｉｅｌｄｉｎｆｏ：＝ａｒｒａｙ（ａｒｒａｙ（１，　），ａｒｒａｙ（２，　）），　＿)

fieldinfo:=Array(Array(1,),Array(2,

(ｄａｔａｔｙｐｅ：＝ｘｌｄｅｌｉｍｉｔｅｄ，ｃｏｍｍａ：＝ｔｒｕｅ)

DataType:=xlDelimited,comma:=True

(ｗｏｒｋｓｈｅｅｔｓ．ａｄｄ　ａｆｔｅｒ：＝)

Worksheets.Add after:=

(ａｃｔｉｖｅｓｈｅｅｔ．ｎａｍｅ＝”　”)

ActiveSheet.Name="　"

(ｃｅｌｌｓ（１，１）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｃｏｐｙ　ｃｅｌｌｓ（，）)

Cells(1,1).CurrentRegion.Copy cel

(ｃｅｌｌｓ（１，１）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｓｏｒｔ)

Cells(1,1).CurrentRegion.Sort

(ｋｅｙ１：＝ｃｅｌｌｓ（，），ｏｒｄｅｒ１：＝ｘｌａｓｃｅｎｄｉｎｇ，　＿)

key1:=Cells(,),order1:=xlAscending,

(ｋｅｙ２：＝ｃｅｌｌｓ（，），ｏｒｄｅｒ２：＝ｘｌａｓｃｅｎｄｉｎｇ，　＿)

key2:=Cells(,),order2:=xlAscending,

(ｈｅａｄｅｒ：＝ｘｌｙｅｓ)

Header:=xlYes