将.xlxs导入Oracle PL / SQL数据库

Question

I have a problem with VBA importing data to Oracle PL/SQL database. I have this script:

sql = "insert into my_table (Name, Surname,Phone,Email,Date, time_1,Time_2,Note, Source, Change,State,Result) 
       values ( '" & Cells(cellNumber, 1) & "' , '" & Cells(cellNumber, 2) & "' ,  '" & Cells(cellNumber, 3) & "' ,  '" & Cells(cellNumber, 4) & "', to_date('" & Cells(cellNumber, 5) & "'," & "'DD.MM.YYYY')," & " to_date('" & Cells(cellNumber, 6) & "'," & "' HH24:MI:SS')," & " to_date('" & Cells(cellNumber, 7) & "'," & "' HH24:MI:SS'),"  & "to_date('" & Cells(cellNumber, 8) & "'," & "'DD.MM.YYYY HH24:MI:SS') , '" & Cells(cellNumber, 9) & "' ,  '" & Cells(cellNumber, 10) & "' ,  '" & Cells(cellNumber, 11) & "' ,  '" & Cells(cellNumber, 12) & " ') "## Heading ##

Everything is OK except time_1 and time_2 . The format in Excel is HH24:MI:SS and VBA transforms it to single number such as: 0,0754234 . I need to preserve the HH24:MI:SS format.

Is there anyone who can help me?

Answer 1

sql =“插入到mytable（名称，姓氏，电话，电子邮件，日期，time_1，Time_2，Note，源，更改，状态，结果）值（'”和Cells（cellNumber，1）＆“'，'”＆Cells （cellNumber，2）＆“'，'”＆Cells（cellNumber，3）＆“'，'”＆Cells（cellNumber，4）＆“'，to_date（'”＆Cells（cellNumber，5）＆“'， “＆”'DD.MM.YYYY'），'“＆CStr（Format（Cells（cellNumber，6），”长时间“））＆”'，'“＆CStr（Format（Cells（cellNumber，7）， “长时间”））＆“'，to_date（'”＆Cells（cellNumber，8）＆“'，”＆“ DD.MM.YYYY HH24：MI：SS'），'”＆Cells（cellNumber，9 ）＆“'，'”＆Cells（cellNumber，10）＆“'，'”＆Cells（cellNumber，11）＆“'，'”＆Cells（cellNumber，12）＆“'）”