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

• #21626 Louro őstag KaiotEch #21619

  Új Válasz 2014-05-14 20:18:37 #21626

  Ú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

  

  Louro

  őstag

  válasz KaiotEch #21619 üzenetére

  Sub KIOLVAS
  'ide tedd a munkalapot aktiválós részt. Én még tennék ide egy ellenőrzést is, hogy létezik -e.
  Dim wsSheet As Worksheet

  On Error Resume Next
  Set wsSheet = Sheets("Munka1")
  If Not wsSheet Is Nothing Then
  Sheets("Munka1").Activate
  Else
  Sheets.Add.Name = "Munka1"
  End If

  'ide tedd a fájl beolvasását. Én ezt makrórögzítővel csinálnám meg. Ide elég hosszú lenne beírni. Gondolom text beolvasás lenne.... Ha gondolod bemásolom, ami nekem van. Én rengeteg txt-vel dolgozok napi szinten.

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