Skip to content

Instantly share code, notes, and snippets.

@stevesohcot
Last active July 31, 2021 01:31
Show Gist options
  • Select an option

  • Save stevesohcot/9f38251f235c934778e49854343fc982 to your computer and use it in GitHub Desktop.

Select an option

Save stevesohcot/9f38251f235c934778e49854343fc982 to your computer and use it in GitHub Desktop.
Run SQL in VBA - Header
Public Function GetInsertHeader() As String
Dim strHeader As String
strHeader = ""
strHeader = strHeader & " INSERT INTO myTableName ("
strHeader = strHeader & " [field_one]"
strHeader = strHeader & " ,[field_two]"
strHeader = strHeader & " ,[field_three]"
strHeader = strHeader & " )"
GetInsertHeader = strHeader
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment