/* */

Sunday, December 13, 2015

FW: [belajar-access] Convert XLS ke CSV



From: belajar-access@yahoogroups.com [mailto:belajar-access@yahoogroups.com]
Sent: 21 Juli 2014 8:09
To: belajar-access@yahoogroups.com
Subject: [belajar-access] Convert XLS ke CSV



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

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
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
End If

On Error Resume Next
Set oExcelWrkBk = Nothing
Set oExcel = Nothing
Exit Function

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


Posted by: him mah <himmah.mlg@gmail.com>

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (1)

Yahoo Groups


The About page of your Group now gives you a heads up display of recent activity, including the latest photos and files

Yahoo Groups


You can now control your default Sort & View Preferences for Conversations, Photos and Files in the membership settings page.


Visit Your Group

·                                 New Members 2



No comments:

Post a Comment