I have tried this:
Expand|Select|Wrap|Line Numbers
- Public Function ExportOracleTableToExcel(ByVal strTable As String, strSheetName As String, path_file_excel As String)
- Dim SirSql As String
- SirSql = ""
- Dim prj_temp As String
- prj_temp = ""
- prj_temp = Trim(UCase(Form1.txtPrjTempRap.Text))
- Dim PrjTab As String ‘name of project and table
- PrjTab = prj_temp & "." & strTable
- Dim ConnOracleTemp As String
- Dim ConnectOracleTemp As New ADODB.Connection
- Dim RS_Oracle_Temp As New ADODB.Recordset
- ConnOracleTemp = "DSN=" & Form1.txtDSN.Text & "; Uid=" & Form1.txtUid.Text & "; Pwd=" & Form1.txtPwd.Text & ";"
- ConnectOracleTemp.CursorLocation = adUseServer
- ConnectOracleTemp.Open (ConnOracleTemp)
- SirSql = " SELECT * INTO " & path_file_excel & “ FROM " & PrjTab & " "
- Debug.Print SirSql
- ConnectOracleTemp.Execute (SirSql)
- ConnectOracleTemp.Close
- End Function
Thank you!