Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

43260 / 76732

←次へ　｜　前へ→


	【38522】Re:配列を使用し変数をセルに代入

Kein - 06/6/5(月) 18:02 -


	引用なし

	パスワード

>a～gまでの７種類の変数に格納
それは配列変数ではありませんね。
>あるテキストデータを１行ごとに分割
例えば

Dim FSO As Object
Dim Ary As Variant
Dim AllSt As String
Const MyF As String = "C:\temp\Test.txt"

Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.OpenTextFile(MyF, 1)
　 AllSt = .ReadAll
　 .Close
End With
Ary = Split(AllSt, vbCrLf)
If Ubound(Ary) < 257 Then
　 Cells(1, 1).Resize(, UBound(Ary) + 1).Value = Ary
Else
　 MsgBox "シートの列数に収まりません", 48
End If
Set FSO = Nothing: Erase Ary

などとすれば、１行分の文字列を一つのセルに入力する作業を、
全文一括して行えますが。

0 hits

▼

【38519】配列を使用し変数をセルに代入 roxy 06/6/5(月) 17:36