![]() If Err = 0 Then MsgBox “The CSV file has been saved to: ” & file, vbInformation, “ExcelDemy.Com” Wraps the cell values with double quotes and populates the new file with them. Set rng = Application.InputBox(“Please select the data range:”, “ExcelDemy.Com”, text,, ,, , 8)įile = Application.GetSaveAsFilename(“”, “CSV File (*.csv), *.csv”)ĭqt = dqt & “””” & cell.Value & “””” & dlim We will write the code inside this subject procedure.Īutomatically detects the data to select. Finally, you can check for the following results.After that, excel will show the following message.Now, browse the location for the file and enter a name.This will take you directly to the Save As window. Now, you can toggle back to the worksheet and select the range. Then, paste the copied code onto the module as shown below.If Err = 0 Then MsgBox "The CSV file has been saved to: " & file, vbInformation, "ExcelDemy.Com" Set rng = Application.InputBox("Please select the data range:", "ExcelDemy.Com", text,, ,, , 8)įile = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")ĭlim = Application.International(xlListSeparator)ĭqt = dqt & """" & cell.Value & """" & dlim ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |