问题描述
我在格式化方面遇到了很大的问题。我有一个包含一些数据的.csv文件。还有像版本号这样的数据,例如1.12.19。并且它总是格式化为日期。但是我不想!
Sheets("Sheetname").Cells.Clear
Sheets("Sheetname").Cells.NumberFormat = "@"
首先,我删除单元格中的所有数据。单元格的格式为TEXT。如果我输入一个像1.12.19这样的值,它将不会像应该那样格式化它。但是有了QueryTable,它将成功!而且我不明白为什么?!请我需要帮助!这是代码:
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & strFileToOpen _,Destination:=Range("$A$1"))
.Name = "QueryPhone"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1,1,1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)