ACCESS FEED: [belajar-access] Re: Convert XLS ke CSV

Minggu, 20 Juli 2014

[belajar-access] Re: Convert XLS ke CSV

Alhamdulillah sudah ketemu disni

http://www.vbaexpress.com/forum/showthread.php?42769-save-as-csv-file-format/page2

oExcelWrkBk.SaveAs Left(sXlsFile, InStrRev(sXlsFile, ".")) &
"csv", xlCSVWindows

diganti seperti ini

oExcelWrkBk.SaveAs Left(sXlsFile, InStrRev(sXlsFile, ".")) & "csv",
xlCSVWindows, , , , , , , , , , True

2014-07-21 8:09 GMT+07.00, him mah <himmah.mlg@gmail.com>:
> Assalamu'alaikum Wr. Wb.
>
> saya barusan nyari fungsi untuk konvert dari xls ke CVS, dan ketemu
> hasil seperti dibawah
>
> yang mau saya tanyakan adalah, setelah saya jalankan fungsi tersebut
> dan berhasil namun yang jadi masalah pembatas antar kolom nya pake
> koma (,) kalau ingin merubah untuk pembatasnya menjadi titik koma /
> semicolon(;) kira kira edit fungsinya seperti apa ya
>
> terima kasih
>
> ini fungsinya
>
> '----------------------------------------------------------
> ' Procedure : ConvertXls2CSV
> ' Author : Daniel Pineault, CARDA Consultants Inc.
> ' Website : http://www.cardaconsultants.com
> ' Purpose : Converts a standard Excel file to csv format
> ' Requirements: Requires MS Excel be installed
> ' Uses late binding, so no libraries need be declared
> ' Copyright : The following may be altered and reused as you wish so long as
> the
> ' copyright notice is left unchanged (including Author, Website
> and
> ' Copyright). It may not be sold/resold or reposted on
> other sites (links
> ' back to this site are allowed).
> '
> ' Input Variables:
> ' ~~~~~~~~~~~~~~~~
> ' sXlsFile : Fully qualified path and filename with extension of the
> Excel workbook
> '
> ' Usage:
> ' ~~~~~~
> ' ConvertXls2CSV "C:\Users\Daniel\Desktop\Contact_E-mail listing.xls"
> ' Will output a file C:\Users\Daniel\Desktop\Contact_E-mail
> listing.csv
> '
> ' Revision History:
> ' Rev Date(yyyy/mm/dd) Description
> '
> **************************************************************************************
> ' 1 2012-May-11 Initial Release - Answer to forum
> question
> '----------------------------------------------------------
> Function ConvertXls2CSV(sXlsFile As String)
> On Error Resume Next
> Dim oExcel As Object
> Dim oExcelWrkBk As Object
> Dim bExcelOpened As Boolean 'Was Excel already open or not
> 'Review 'XlFileFormat Enumeration' for more formats
> Const xlCSVWindows = 23 'Windows CSV Format
> Const xlCSV = 6 'CSV
> Const xlCSVMac = 22 'Macintosh CSV
> Const xlCSVMSDOS = 24 'MSDOS CSV
>
> Set oExcel = GetObject(, "Excel.Application") 'Bind to existing
> instance of Excel
>
> If Err.Number <> 0 Then 'Could not get instance of Excel, so
> create a new one
> Err.Clear
> On Error GoTo Error_Handler
> Set oExcel = CreateObject("excel.application")
> bExcelOpened = False
> Else 'Excel was already running
> bExcelOpened = True
> End If
>
> On Error GoTo Error_Handler
> oExcel.ScreenUpdating = False
> oExcel.Visible = False 'Keep Excel hidden from the user
> oExcel.Application.DisplayAlerts = False
>
> Set oExcelWrkBk = oExcel.Workbooks.Open(sXlsFile)
> 'Note: you may wish to change the file format constant for another
> type declared
> ' above based on your usage/needs in the following line.
> oExcelWrkBk.SaveAs Left(sXlsFile, InStrRev(sXlsFile, ".")) &
> "csv", xlCSVWindows
> oExcelWrkBk.Close False
>
> If bExcelOpened = False Then
> oExcel.Quit
> End If
>
> Error_Handler_Exit:
> On Error Resume Next
> Set oExcelWrkBk = Nothing
> Set oExcel = Nothing
> Exit Function
>
> Error_Handler:
> MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
> "Error Number: " & Err.Number & vbCrLf & _
> "Error Source: ConvertXls2CSV" & vbCrLf & _
> "Error Description: " & Err.Description, _
> vbCritical, "An Error has Occured!"
> Resume Error_Handler_Exit
> End Function
>