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

• #8527 Pulsar veterán

  Új Válasz 2010-10-22 00:22:38 #8527

  Ú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

  

  Pulsar

  veterán

  megvan a megoldás :

  Sub loggenerator()
  Dim PageName As String, filename As String, utvonal As String
  
  utvonal = "c:\Documents and Settings\BHUkkocs\My Documents\LOG\aaa\"
  filename = utvonal & Sheets("generator").Range("N4").Value
  
  PageName = filename & "."
  
  
  Open PageName For Output As #1
  MyStr = Cells(4, 13).Value
  Print #1, MyStr
  
  Close #1
  
  End Sub

  Köszi a helpet srácok!

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