Hi friends!!!
I am literally to get this!!!
How to open edit and save a notpad in UTF-8 encoding using vba!!
Hi friends!!!
I am literally to get this!!!
How to open edit and save a notpad in UTF-8 encoding using vba!!
Hi,
used the MAcro-recorder: UTF-8 is the BOLD-line in the following:
(this works for opening but as for saving... Dunno)
/PetriSub Macro2() 'Macro2 Macro ' Macro recorded 16.12.2008 by Patu With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\layers.txt", _ Destination:=Range("A1")) .Name = "layers" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = -535 .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = True .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileColumnDataTypes = Array(1, 1, 1, 1) .TextFileTrailingMinusNumbers = True .Refresh BackgroundQuery:=False End With End Sub