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

• #30734 sztanozs veterán RedHarlow #30733

  Új Válasz 2016-02-23 17:14:18 #30734

  Ú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

  

  sztanozs

  veterán

  válasz RedHarlow #30733 üzenetére

  Sub CreateAfile
  Dim fs, fileObj
  Set fs = CreateObject("Scripting.FileSystemObject")
  Dim v, ix
  v = Range("A1:A1234").Value2
  For ix = 1 to UBound(v,1)
  Set fileObj = fs.CreateTextFile("c:\" & Trim(v(ix,1)) & ".doc", True)
  fileObj.Close
  Set fileObj = Nothing
  Next
  Set fs = Nothing
  End Sub

  Csak fejből, nem próbáltam ki élesben. A1:A1234 tetszés szerint beállítandó.

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