Page Comparison

With ActiveSheet.QueryTables.Add(Connection:="TEXT;###FILE###", Destination _
:=Range("$A$1"))
.Name = "csv"
.FieldNames = True 
.RowNumbers = False                        
.FillAdjacentFormulas = False 
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
'укажите кодировку файла, 1251 - windows, 65001 - utf-8        
'если с 1251 получите не русский текст, попробуйте 1252
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False 'True, если разделитель в файле Tab
.TextFileSemicolonDelimiter = True 'True, если разделитель в файле Точка с запятой
.TextFileCommaDelimiter = False 'True, если разделитель в файле Запятая
.TextFileSpaceDelimiter = False 'True, если разделитель в файле Пробел
.TextFileOtherDelimiter = "" 'между кавычками другой разделитель, если нужно
'укажите здесь числа 2 через запятую, столько сколько у вас
'колонок в прайсе, если 7 колонок, то 2, 2, 2, 2, 2, 2, 2
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With