Hai Friends,
Mohon pencerahan nih, gimana cara insert rows di file excel dari vb
Coding saya:
..........................
With XlWs
For Cnx = 1 To Jrc
ProBar = Cnx
.Cells(Pos, 1).Value = Cnx
.Cells(Pos, 2).Value = RsTest![Nama]
.Rows(Format(Pos + 1, "0") & ":" & Format(Pos + 1, "0")).Select
.Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
RsTest.MoveNext
Pos = Pos + 1
Next
End With
..................
Hasilnya error : Runtime Error : 438 -- Object doesn't support this
property or method..........
Tolong yah....
[Non-text portions of this message have been removed]
