title: Importing Data from Excel file to MSAccess formatting each column in VBA
body: <p>I'm coding a system which import a excel file to a ms access database, but I would like to know if is possible format every column before import to the database.</p>
  <p>For example:</p>
  <p>EXCEL FILE (xls or xlsx): COLUMN A = DateTime; COLUMN B = Integer; COLUMN C = Char(25); COLUMN D = VARCHAR(255)...</p>
  <p>I'm using this code right now but it's automatically.</p>
  <pre><code>Do While Len(strFile) &gt; 0
  strPathFile = strPath &amp; strFile
  DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
  strTable, strPathFile, blnHasFieldNames
  strFile = Dir()
  Loop
  </code></pre>