Új hozzászólás Aktív témák

• #20890 Oly őstag

  Új Válasz 2014-03-11 11:43:33 #20890

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Oly

  őstag

  Én egy ilyesmivel indultam neki:

  Private Sub CommandButton1_Click()
  Dim FileNum As Integer
  Dim DestFile As String
  Dim i, iv, c
  iv = Range("A1").End(xlDown).Row:
  c = 1
  d = 3
  DestFile = "Z:\TESZT\" & Cells(4, 4) & ".csv"
  'DestFile = "Z:\TESZT\" & Cells(4, 4) & c & ".csv"
  FileNum = FreeFile()
  Open DestFile For Output As #FileNum
  For i = 1 To iv
  'MsgBox "i: " & i
  'MsgBox "iv: " & iv
  'MsgBox "d: " & d
  'MsgBox "c: " & c
  'If i = d + 1 Then
  'c = c + 1
  'd = d + 3
  'DestFile = "Z:\TESZT\" & Cells(4, 4) & c & ".csv"
  'End If

  Print #FileNum, Trim(Cells(i, 1))
  Close FileNum
  Next i

  MsgBox "The CSV file has been created succesfully!", vbOKOnly, "SAVE"

  End Sub

  Itt most csak 9 sort tesztelek, amit 3 soronként kellene szét szednie, de mindig csak a 3. sort rakja a CSV-be.

  SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S

Új hozzászólás Aktív témák