สอบถาม Code หน่อยครับ [VBA]

[hanakobz112]

ผมลองเปลี่ยนตรง IntFNumber หลายแบบแล้วครับยังติด Error อยู่

http://upic.me/show/56426848

Code: Select all

Sub Break_String()


Dim WrdArray() As String
Dim text_string As String
Dim sSerial As String
Dim sPropoties As String
Dim intFNumber As Integer
Dim FilePath As String

    FilePath = "C:\Users\570208\Desktop\788.xltm"
    row_number = 0
    Open FilePath For Input As #1
  
 Do While Not EOF(1)
        text_string = Range("C" & intFNumber).Value
        WrdArray() = Split(text_string, ";")
        sSerial = Range("B" & intFNumber).Value
For i = LBound(WrdArray) To UBound(WrdArray)
  
    'Write selected data to the worksheet
        With Sheet8
            .Cells(lRow, 1) = sSerial
            .Cells(lRow, 2) = WrdArray(i)
        End With

        'Address next row of worksheet
        lRow = lRow + 1
Next i

'MsgBox strg
    Loop

End Sub

[bank9597]

ได้แทนค่าตัวแปร intFNumber ไว้ที่ไหนครับ

ลองแนบภาพเออร์เรอร์ลงมาในฟอรั่มครับ

[snasui]

ให้แนบไฟล์ แนบภาพมาในฟอรัมนี้ อ่านกฎข้อ 4 ด้านบนประกอบด้วยครับ

สำหรับไฟล์ที่จะแนบมานั้นให้ทำมาแค่พอเป็นตัวอย่างที่เป็นตัวแทนของข้อมูลจริงได้และต้องมีขนาดไม่เกิน 300kb ครับ