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

• #13665 thee csendes tag thee #13664

  Új Válasz 2012-05-08 07:25:28 #13665

  Ú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

  

  thee

  csendes tag

  válasz thee #13664 üzenetére

  meglett a megoldás:

  Private Sub CommandButton2_Click()
  
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.OpenTextFile("c:\kiskutya.txt", 1, 0)
  Worksheets("Munka1").Range("A15") = f.ReadLine
  Worksheets("Munka1").Range("A16") = f.ReadLine
  f.Close
  
  End Sub

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