Snasui Excel Forum

Cm.CommandText = "INSERT INTO " & tblaaa & "(aaa,bbb,ccc,ModifyTime)" & _
"Values ('" & exData(Row).aaa& "','" & exData(Row).bbb& "','" & exData(Row).ccc& "'," & _
"'" & Format(Now(), "dd/mm/yyyy hh:nn:ss") & "');"
oCm.Execute iRecAffected

ผมได้ใช้ insert ทั่วไปครับ

ก็คือว่า ใน excel ไฟล์จะมี ข้อมูล อยู่ 1 row แต่ใน 1 row นั้น มี Column C จะมี RBS6201,RBS6601 อยู่ครับ แต่ว่าทีนี้เราจะสามารถตัด , ออกแล้วทำให้การ insert ข้อมูลเราเป็น สองบรรทัด เราสามารถทำได้รึเปล่าคับ ช่วยให้คำแนะนำหน่อยครับ แต่บางบรรทัดก็จะไม่มี , อยู่ด้วยจึงสามารถ insert ได้

ขอบคุณมากครับ ตอนนี้ทำแก้ปัญหาได้ละคับ ผม ใช่ Set aa = Nothing เข้าไปช่วยในการ ทำให้ Collection อันเก่ามันหายไป ขอบคุณมากนะครับ

last_row = Range("B" & Rows.Count).End(xlUp).Row
start_row = 2
Dim Totcol As Integer
Totcol = last_row - start_row
ReDim errorcnt(Totcol)
For I = 0 To Totcol
arrhd = Split(Cells(I + start_row, 2).Value, "@")

Dim aa As New Collection
Dim b() As Variant
Dim k As Variant
Dim j, y As ...

ขอบคุณมากครับ ทีให้คำแนะนำ

พอมีวิธีช่วยผมหน่อยได้รึป่าวครับ งง มากเลย ครับ

last_row = Range("B" & Rows.Count).End(xlUp).Row
start_row = 2

For i = start_row To last_row
arrhd = Split(Cells(i, 2).Value, "@")
Resultname = arrhd(0)
Resultname1 = arrhd(1)
Resultname2 = arrhd(2)
ผมใช้ Code ชุดนี้ สามารถ Get ค่า string ลง ...

ลองละครับ

ครับ ผมแค่แปลกใจว่าทำไหม Resultame ถึงไม่ยอมเก็บค่า string ของ b(0)

ผมได้ทำการลองเล่น มาทั้งคืน ครับ
Resultame ไม่ยอมรับค่า string จาก b(0) ผมก็ได้ตั้ง ให้ Resultame เป็น string แล้วนะครับ

ผมตั้ง

Dim aa As New Collection


ครับ

ผมลองใช้ละครับ

arrhd = Split(Cells(I, 2).Value, "@")
'aa.Add arrhd()
Resultame = arrhd(0)
' If Not (arrhd()) Then
' Resultname = aa.Add arrhd()
' End If
' arrhd = Split(Cells(I, 2).Value, "@")
' Resultname = arrhd(0)


ก็ยังไม่ไม่ได้ครับ ลองใช้ Collection ดึงมาหมดทุกคำ แล้วลองใช้ If Not ...

Function GetResultName(ByVal Resultbook As Workbook) As Variant

Dim Item As Variant
Dim Count, NumUnique, CountResult, CountDup As Integer
Dim Resultname As String


Dim Element() As Variant
Dim FoundMatch As Boolean
'''Dim Returnindex As Integer: Returnindex = 0 '' index of _error, _Result ...

arrhd = Split(Cells(I, 2).Value, "@")
Resultname = arrhd(0)

ใน array() arrhdมีค่า a,b,c,a,c

ผมต้องการจะให้นำเอาค่าทีซ้ำกันใน arrhd มาshowใน Resultname

arrhd = Split(Cells(I, 2).Value, "@")
Resultname = arrhd(0)

ตอนนี้คือว่า ใน array() arrhdมี a,b,c,a,c

ผมต้องการจะให้มันเอา ค่าทีซ้ำกันใน arrhd มาshowใน Resultname