|
VBA初心者です。
どなたかご教授願います!m(_~_)m
構造体を使って値をセットし、ファイルに出力しようとしたところ、
Printのトコで'型が一致しません'のコンパイルエラーになってしまいます。
出力データは構造体の要素を1本につなげた形にしたいのですが・・・
要素一つ一つをまた別の変数にセットして1本にしないと出来ないのでしょうか?
構造体は引数としても使用しているのですが、
その使用意味がわからなくなってしまいました (T0T)
一応、抜粋したソースです。↓
Type KOUZOU '実際、要素の数は50〜100位あります
DKBN As String * 1
ID1 As String * 10
ID2 As String * 10
YMD As String * 8
RUN As String * 4
End Type
Dim My_Kouzou As KOUZOU
Dim TEXTFILE As String
Dim TXT As Integer
TEXTFILE = "D:\xxxxx.txt"
TXT = FreeFile
Open TEXTFILE For Output As #TXT
My_Kouzou.DKBN = Trim(Sheet1.Range("A" & Iy).Value)
My_Kouzou.ID1 = Trim(Sheet1.Range("B" & Iy).Value) & Space(2)
My_Kouzou.ID2 = Trim(Sheet1.Range("C" & Iy).Value) & Space(5)
My_Kouzou.YMD = Trim(Sheet1.Range("D" & Iy).Value)
My_Kouzou.RUN = Trim(Sheet1.Range("E" & Iy).Value)
Print #TXT, My_Kouzou '← ココでエラーです
Close #TXT
どうか、よろしくお願いします!!
|
|