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

• #14216 lappy őstag psg5 #14214

  Új Válasz 2012-07-02 09:30:10 #14216

  Ú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

  

  lappy

  őstag

  válasz psg5 #14214 üzenetére

  Sub WriteXls()
  
  Dim firstrow As Integer, rownum As Integer, colnum As Integer
  Dim filename As String
  Dim Filelocation As String
  Dim ws As Worksheet
  
  Set ws = Worksheets("Sheet1")
  
  Filelocation = "C:\SAJÁT\"
  
  With ws
  rownum = 3
  While .Cells(rownum, 1) <> ""
  filename = .Cells(rownum, 1).Value
  Open (Filelocation & filename & ".xls") For Output As #1
  
  colnum = 2
  While .Cells(rownum, colnum) <> 0
  Print #1, ws.Cells(rownum, colnum) & " ";
  colnum = colnum + 1
  Wend
  Close #1
  rownum = rownum + 1
  Wend
  
  End With
  
  End Sub
  Szúrj az első sorba egy nevet, mert úgy menti majd el!
  pl.: A1:text1===>text1.xls

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