Excel VBA質問箱 IV

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

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


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

3512 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

▼

【61750】Opentextについて dtaro 09/5/31(日) 23:01

【61751】Re:Opentextについて kanabun 09/5/31(日) 23:28

【61752】Re:Opentextについて dtaro 09/6/1(月) 0:23


	【61750】Opentextについて

dtaro - 09/5/31(日) 23:01 -


	引用なし

	パスワード

カンマ付のテキストファイルを処理する必要があるため、マクロを作ろうとしています。まず、マクロの記録で以下の

Sub Macro1()
' Macro1 Macro
　　ChDir "D:\"
　　Workbooks.OpenText Filename:="D:\test.txt", Origin:=932, StartRow:=1, _
　　　　DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
　　　　:=False, Tab:=True, Semicolon:=False, Comma:=True, Space:=False, _
　　　　Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 1), _
　　　　Array(5, 1), Array(6, 1), Array(7, 2), Array(8, 2)), TrailingMinusNumbers:=True
End Sub

FieldInfo=の部分について動的に対応しようと思い、

Function MakeArrayString(ByVal cnt As Integer) As String
Dim i As Integer
Dim str As String
For i = 1 To cnt
　If i <> 1 Then
　　str = str & ",(" & i & ", 2)"
　Else
　　str = "Array(1, 2)"
　End If
Next
MakeArrayString = str
End Function

という関数を作成、

' Macro1 Macro
'
　　Dim ar As String
　　
　　ar = MakeArrayString(8)
'
　　ChDir "D:\"
　　Workbooks.OpenText Filename:="D:\test.txt", Origin:=932, StartRow:=1, _
　　　　DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter _
　　　　:=False, Tab:=True, Semicolon:=False, Comma:=True, Space:=False, _
　　　　Other:=False, FieldInfo:=Array(ar), TrailingMinusNumbers:=True
End Sub

としてみたところ、
実行時エラー 1004
Opentextメソッドは失敗しました。
で失敗します。

環境 OS XP Pro + Excel2002（会社）　Excel2007（自宅）

対処方法を教え願います。

※テストで作ったサンプルのテキストファイル
a,3333,4658789132,dffdfdsfds,effg,gr44,2332fdsfd,4551321356
dsfsd,2565,486846543,fdsfds,fdsfdfdsf,sd,fdsfdsf,fdsfdv
das4wr43t54y,ttdhtfhfgj,yg,gkukuykuy,gdfdd,f,dsfdsfdsfd,nfvdfvs
adada,fsd,sd,sf,gdfdd,gdgdhdh,fdbcvbcgnvhmhjjk,",jihmh"


	【61751】Re:Opentextについて

kanabun - 09/5/31(日) 23:28 -


	引用なし

	パスワード

▼dtaro さん：

>　　　　Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 1), _
>　　　　Array(5, 1), Array(6, 1), Array(7, 2), Array(8, 2)),

>FieldInfo=の部分について動的に対応しようと思い、

Dim fInfo(1 to 256) as variant
Dim i as long
'----------------- デフォルト（文字列）の設定
For i = 1 To 256
　　fInfo(i) = Array(i, 2)
Next
'----- Special Columns に文字列以外のデータ型を指定
fInfo(4) = Array(4, 1)
fInfo(5) = Array(5, 1)

こんな風に、OpenTextする前に書いておいて、

　　 , FieldInfo:=fInfo

のようにこの配列を渡してください。


	【61752】Re:Opentextについて

dtaro - 09/6/1(月) 0:23 -


	引用なし

	パスワード

▼kanabun さん：
>▼dtaro さん：
>
>>　　　　Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 1), _
>>　　　　Array(5, 1), Array(6, 1), Array(7, 2), Array(8, 2)),
>
>>FieldInfo=の部分について動的に対応しようと思い、
>
>Dim fInfo(1 to 256) as variant
>Dim i as long
>'----------------- デフォルト（文字列）の設定
>For i = 1 To 256
>　　fInfo(i) = Array(i, 2)
>Next
>'----- Special Columns に文字列以外のデータ型を指定
>fInfo(4) = Array(4, 1)
>fInfo(5) = Array(5, 1)
>
>こんな風に、OpenTextする前に書いておいて、
>
>　　 , FieldInfo:=fInfo
>
>のようにこの配列を渡してください。

文字列型ではなしに配列を渡さないといけなかったのですね。ここの部分については解決できました。

深夜にありがとうございました。


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

3512 / 13645 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free