ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] excel vba (´¡¤J¸ê®Æ)insert ¶i sqlite ½wºC°ÝÃD

¦^´_ 18# PKKO

P¤j¡A«u§r§r¡A©êºp«¨
À³¸Ó¤S¸Õ¿ù¤F¡A¤@¼Ë80¬í@@

§ï¦¨¤U­±³o¼Ë¬O72¬í¡A©Ò¥H if ¤º¤é´ÁÂà´«»Ý 8¬í
myCols = 123
myRows = 7923
        Rng = [A3].Resize(myRows, myCols).Value  
            For j = 1 To (myRows - 2)
                zc = ""
                    For i = 1 To myCols
                        za = Rng(j, i)
                        zc = zc & "'" & za & "',"
                    Next i
                zc = Left(zc, Len(zc) - 1)
                rez = "(" & zc & ")"
                ret = ret & rez & ","
                DoEvents
            Next j
  1.         
  2. Application.ScreenUpdating = False
  3. StartTime = Timer
  4.         myCols = Range("A2").CurrentRegion.Columns.Count '­pºâ©Ò¦³ªº¦C
  5.         myRows = Range("A1").CurrentRegion.Rows.Count    '­pºâ©Ò¦³ªº¦æ
  6.         Rng = [A3].Resize(myRows, myCols).Value         
  7.             For j = 1 To (myRows - 2)
  8.                 zc = ""
  9.                     For i = 1 To myCols
  10.                         za = Rng(j, i)
  11.                             If za = "" Then 'ªÅ®æÂà´«
  12.                                 za = 0
  13.                                 
  14.                             ElseIf i = 2 Then '¤é´ÁÂà´«
  15.                                 If (Len(Split(za, "/")(1)) = 1) And (Len(Split(za, "/")(2)) = 1) Then
  16.                                     za = Split(za, "/")(0) & "-0" & Split(za, "/")(1) & "-0" & Split(za, "/")(2)
  17.                                 ElseIf Len(Split(za, "/")(1)) = 1 Then
  18.                                     za = Split(za, "/")(0) & "-0" & Split(za, "/")(1) & "-" & Split(za, "/")(2)
  19.                                 ElseIf Len(Split(za, "/")(2)) = 1 Then
  20.                                     za = Split(za, "/")(0) & "-" & Split(za, "/")(1) & "-0" & Split(za, "/")(2)
  21.                                 Else
  22.                                     za = Split(za, "/")(0) & "-" & Split(za, "/")(1) & "-" & Split(za, "/")(2)
  23.                                 End If
  24.                                 
  25.                             End If
  26.                         zc = zc & "'" & za & "',"
  27.                     Next i
  28.                 zc = Left(zc, Len(zc) - 1)  '§R°£³Ì«á¤@­Ó","
  29.                 rez = "(" & zc & ")"
  30.                 ret = ret & rez & ","
  31.                 DoEvents
  32.             Next j
  33. EndTime = Timer
  34. MsgBox Format(EndTime - StartTime, "00.00") & "’"
  35. Application.ScreenUpdating = True
½Æ»s¥N½X

TOP

¦^´_ 21# PKKO

ÁÂÁÂp¤j«üÂI¡A¤U¬P´Á¥X®t¤j³°®É¡A¨Ó¸Õ¶]~~¨ì®É¦b¦^³ø

¤£¹L±z»¡ªº­×§ï²Ä¤GÂI¡A¤j»\¬Ù8¬í§a¡A³o¼ËÁÙ¬O­n70¬í¡A­Ó¤Hıªº¨S¹D²z@@

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD