Question

我有从外部来源下载的非规范化数据。我正在尝试创建一个标准化this downloaded data的查询，然后将其附加到表中。下面的代码在某种程度上完成了我想要的。但是，我似乎无法弄清楚如何获得在适当成绩旁填充的日期。

Private Sub cmdImportDtmsAPFT_Click()
  Dim fPath As String: fPath = getFilePath
  Dim strSQL As String
'Import data to tbl_DTMS_Grades
  DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "tbl_DTMS_Grades", fPath, 1, "Grades!"

'Move from temp tbl_DTMS_Grades to Gradebook      
  DoCmd.SetWarnings False
  strSQL = "INSERT INTO tbl_94eGrades ( StudentID, 94E10A04, 94E10B04, 94E10C03, 94E10D04, 94E10E03, 94E10F01, NCOIC ) " & _
    "SELECT tbl_DTMS_Grades_Crosstab.StudentID AS Expr1, tbl_DTMS_Grades_Crosstab.[94E10A04], tbl_DTMS_Grades_Crosstab.[94E10B04], tbl_DTMS_Grades_Crosstab.[94E10C03], tbl_DTMS_Grades_Crosstab.[94E10D04], tbl_DTMS_Grades_Crosstab.[94E10E03], tbl_DTMS_Grades_Crosstab.[94E10F01], tbl_DTMS_Grades_Crosstab.NCOIC " & _
    "FROM tbl_DTMS_Grades_Crosstab " & _
    "WHERE (((tbl_DTMS_Grades_Crosstab.StudentID) Is Not Null));"


  DoCmd.RunSQL strSQL
 DoCmd.SetWarnings True



End Sub

Public Function getFilePath() As String
  ' Open file explorer to find import file
  Dim f As Object

  Set f = Application.FileDialog(3)

  f.AllowMultiSelect = False
  If f.show Then
    getFilePath = f.selecteditems(1)
  End If
End Function

Results

通过VBA / SQL导入非规范化数据

0 个答案: