The nice thing about silent movies is you get straight to point and leave out all the noise. Plus it a good video.
@ratnoinamaew7822
4 жыл бұрын
My CSV file has some text in one of the cells wrapped which is causing problems when importing using the code below. Do you know what changes I would need to make to the code to unwrap the text from the source CSV file (Column N) Set ws = ActiveWorkbook.Sheets("Import") 'destination sheet where CSV file will be imported strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", , "Please select text file...") 'prompt to open the CSV file With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1")) 'When this line runs its already too late as the wrapped text is imported, how do I unwrap the text either before running this line or can it be unwrapped with more code added on this line? .TextFileParseType = xlDelimited .TextFileCommaDelimiter = True .Refresh End With
@beyondthenature
4 жыл бұрын
Thanks for uploading such informative video. just a question, I'm getting an error application define error on line Application.Range("products").Cells(row_number, 1).Value = LineItems(0) Although I name a column a1 as products. Again thanks for your advise
@dfx4000
3 жыл бұрын
no sound? is hard to understand :(
@apoorvabhatt5026
4 жыл бұрын
Hi,I have a csv file with data with column names ,my requirement is I need to import the CSV to a page another machine ,and the data in my CSV should be appended to the particular column only if the column names are same in both my CSV and tht page.Can you please help.me to write this logic
@LuvLDZ
3 жыл бұрын
Not optimal for multiple records (2k+) or extensive columns
@marcbeirens2151
3 жыл бұрын
can i download the sourcecode from this video
@rkCheeky
7 ай бұрын
Sub Import_TXT_Lines() Dim fd As Office.FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .Filters.Clear .Title = "Select a CSV File" .Filters.Add "CSV", "*.csv", 1 .AllowMultiSelect = False Dim sFile As String If .Show = True Then sFile = .SelectedItems(1) End If End With ' Import CSV from DileDialog If sFile "" Then Open sFile For Input As #1 Dim row_number As Integer Dim LineFromFile As String Dim LineItems() As String row_number = 0 Do Until EOF(1) Line Input #1, LineFromFile LineItems = Split(LineFromFile, ",") Dim i As Integer For i = 0 To UBound(LineItems) Application.Range("A6").Cells(row_number, i + 1).Value = LineItems(i) Next i row_number = row_number + 1 Loop Close #1 End If End Sub
@vijax21
2 жыл бұрын
you dont know how to talk? or how to record audio?
Пікірлер: 9