TextFileThousandsSeparator Property Example

This example saves the original thousands separator and sets it to a period for the first query table on Sheet1, in preparation for importing a French text file (for example) into the U.S. English version of Microsoft Excel.

strDecSep = Worksheets("Sheet1").QueryTables(1) _
    .TextFileThousandsSeparator
Worksheets("Sheet1").QueryTables(1) _
    .TextFileThousandsSeparator = "."