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

• #28036 Pakliman tag attilalr2 #28000

  Új Válasz 2015-08-05 11:26:30 #28036

  Ú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

  

  Pakliman

  tag

  válasz attilalr2 #28000 üzenetére

  Hali!

  Nem tudom, Nálad milyen kódolás van.
  A munkahelyemen spec. program TXT kimenetét kellett átalakítanom olvashatóbbá.
  A makró (standard modulba rakod):

  Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
  Private Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
  
  Public Function Konvert(mit, Optional KellKonvertálni As Boolean = True) As String
  Dim vissza As Long
  Dim dest As String
  
  If KellKonvertálni Then
  dest = Space(Len(mit))
  vissza = OemToCharBuff(mit, dest, Len(mit))
  Else
  dest = mit
  End If
  
  Konvert = dest
  
  End Function

  Ezt használhatod cellába beírva, vagy akár egy újabb makróban is, amelyik végigfut a szükséges cellákon és átalakítja a tartalmukat.

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