②Open,Add,Sort

背景
投稿者投稿者どらねこ  いいね0  お気に入り登録
プレイ回数269  難易度(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