मैं एक फ़ोल्डर में tsv फ़ाइलों को xlsx प्रारूप में कनवर्ट करने की कोशिश कर रहा हूं, उन्हें VBA के माध्यम से डेटा => टेक्स्ट विकल्प का उपयोग करके पाठ फ़ाइल के रूप में आयात कर रहा हूं।
उस दौरान इस त्रुटि का सामना करना पड़ा
कोड:
Sub convert()
Dim CSVfolder As String, XlsFolder As String, fname As String, wBook As Workbook
CSVfolder = ActiveSheet.Range("B2").Value & ""
fname = Dir(CSVfolder & "*.tsv")
Do While fname <> ""
Workbooks.Add
Set wBook = ActiveWorkbook
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fname, Destination:=Range("$A$1"))
.Name = fname
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
wBook.Close False
fname = Dir
Loop
End Sub
अंत उप
क्यों मैं में त्रुटि हो रही है .Refresh BackgroundQuery: = गलत ?
उत्तर:
जवाब के लिए 2 № 1त्रुटि हो रही है क्या आप वहां मौजूद हैं जैसा कि यह है Refresh
वह चरण जो फ़ाइल के लिए दिखता है।
मुद्दा यह है कि Fname
जीत "टी पथ होते हैं।
अपना कनेक्शन बदलें:
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & CSVfolder & fname, Destination....