View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
JJ JJ is offline
external usenet poster
 
Posts: 122
Default Creating an access table with ADO

Does anyone know how to turn this into a Loop? I don't want to hardcode my
table field names. Thank you in advance!

Field1 = ActiveWorkbook.Worksheets("mysheet1").Range("C1"). Value
Field2 = ActiveWorkbook.Worksheets("mysheet2").Range("D1"). Value
Field3 = ActiveWorkbook.Worksheets("mysheet3").Range("E1"). Value

cnn.Execute _
"CREATE TABLE tblOutput(" & _
Field1 & " VARCHAR(1) NOT NULL," & _
Field2 & " VARCHAR(20) NOT NULL," & _
Field3 & " VARCHAR(20) NOT NULL)"