Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)

[22 デフォルトの名無しさん (ﾜｯﾁｮｲ 8a3d-0rrK) 2023/01/29(日) 23:11:48.83 ID:QtxW6Mg40]

ワッチョイ付きに誘導されますた。

Type RecClass0
　field01 As String * 6
End Type
Type RecClass1
　field01 As String * 4
　field02 As Integer
End Type

Sub test()

　data = "abcdyyzzzz・・" ←　HEXにすると "414243440006??????・・"

　Dim rec0 As RecClass0
　Dim rec1 As RecClass1
　rec0.field01 = data

　rec1 = rec0　　　←型が一致しません

　Debug.Print Len(rec1.field02)
End Sub

dateの0006にあたる6を取ってきたいんだけど、上記のようなコードを考えてみた。
型が一致しませんになる。
代入て無理なのか？
コボルだとできるよな。
上のコードはインデントのために全角空白を使ってるので、半角にしてくれ。