我試圖通過使用VBA訪問將虛擬行插入到excel文件中。我重視以下到訪問鍵,當我運行它,我得到:「編譯錯誤:Sub或函數未定義」使用VBA通過Access在Excel中插入「虛擬」行
Sub Command10_Click()
Dim objActiveWkbk As Object Dim objActiveWksh As Object Dim objXL As Object Dim strWkbkName As String
strWkbkName = "C:\data\Payroll.csv"
Set objXL = CreateObject("excel.application") objXL.Application.ActiveWorkbook Set objActiveWksh = objActiveWkbk.worksheets("Payroll.csv")
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("B2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("C2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("D2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("E2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("F2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("G2").Select
ActiveCell.FormulaR1C1 = "2500"
Range("H2").Select
ActiveCell.FormulaR1C1 = "1500"
Range("I2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("J2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("K2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("L2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("M2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("N2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("O2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("P2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("Q2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("R2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("S2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("T2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("U2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("V2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("W2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("X2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("Y2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("Z2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AA2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AB2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AC2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AD2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AE2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AF2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AG2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AH2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AI2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AJ2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AK2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AL2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AM2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AN2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AO2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AP2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AQ2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AR2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AS2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AT2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AU2").Select
ActiveCell.FormulaR1C1 = "BBB"
Range("AV2").Select
ActiveWorkbook.Save
objActiveWkbk.Close SaveChanges:=False Set objActiveWkbk = Nothing objXL.Application.Quit Set objXL = Nothing End Sub
Private Sub Command4_Click() DoCmd.OpenQuery "qry_CARS Capps Compile"
End Sub
Private Sub Command8_Click() DoCmd.TransferText acImportDelim, , "CARS Capps B", "P:\EMI\Drop\CARS Capps.csv", True
End Sub
Public Sub Import_CARS_Capps_Click() Dim xlApp As Object Dim xlBook As Object
xlApp.Visible = True
Set wbExcel = xlApp.Workbooks.Add Set xlBook = xlApp.Workbooks.Open("P:\EMI\Drop\CARS Capps.csv") 'ie "C:\My Documents\Data To Import.xlsx" xlApp.DisplayAlerts = False Workbook("CARS Capps.csv").Activate
Sheets("Sheet1").Activate 'Sheet1 should be the actual name of your work sheet
Range("a2").Select
ActiveCell.EntireRow.Insert 'Insert a row below the header
Cells(2, 1).Value = "aaa" Cells(2, 2).Value = "aaa" Cells(2, 3).Value = "aaa" Cells(2, 4).Value = "aaa" Cells(2, 5).Value = "aaa" Cells(2, 6).Value = "aaa" Cells(2, 7).Value = "5555" Cells(2, 8).Value
= "5555" Cells(2, 9).Value = "aaa" Cells(2, 10).Value = "aaa" Cells(2, 11).Value = "aaa" Cells(2, 12).Value = "aaa" Cells(2, 13).Value = "aaa" Cells(2, 14).Value = "aaa" Cells(2, 15).Value = "aaa" Cells(2, 16).Value = "aaa" Cells(2, 17).Value = "aaa" Cells(2, 18).Value = "aaa" Cells(2, 19).Value = "aaa" Cells(2, 20).Value = "aaa" Cells(2, 21).Value = "aaa" Cells(2, 22).Value = "aaa" Cells(2, 23).Value = "aaa" Cells(2, 24).Value = "aaa" Cells(2, 25).Value = "aaa" Cells(2, 26).Value = "aaa" Cells(2, 27).Value = "aaa" Cells(2, 28).Value = "aaa" Cells(2, 29).Value = "aaa" Cells(2, 30).Value = "aaa" Cells(2, 31).Value = "aaa" Cells(2, 32).Value = "aaa" Cells(2, 33).Value = "aaa" Cells(2, 34).Value = "aaa" Cells(2, 35).Value = "aaa" Cells(2, 36).Value = "aaa" Cells(2, 37).Value = "aaa" Cells(2, 38).Value = "aaa" Cells(2, 39).Value = "aaa" Cells(2, 40).Value = "aaa" Cells(2, 41).Value = "aaa" Cells(2, 42).Value = "aaa" Cells(2, 43).Value = "aaa" Cells(2, 44).Value = "aaa" Cells(2, 45).Value = "aaa" Cells(2, 46).Value = "aaa" Cells(2, 47).Value = "aaa" Cells(2, 48).Value = "aaa" Cells(2, 49).Value = "aaa" Cells(2, 50).Value = "aaa" Cells(2, 51).Value = "aaa" Cells(2, 52).Value = "aaa" Cells(2, 53).Value = "aaa" Cells(2, 54).Value = "aaa" Cells(2, 55).Value = "aaa" Cells(2, 56).Value = "aaa" Cells(2, 57).Value = "aaa" Cells(2, 58).Value = "aaa" Cells(2, 59).Value = "aaa" Cells(2, 60).Value = "aaa" Cells(2, 61).Value = "aaa"
xlBook.Save Workbooks("Cars Capps.csv").ClosexlApxlApp.Quit xlApp.DisplayAlerts = True Set xlBook = Nothing Set xlApp = Nothing
End Sub
你能重新格式化你的代碼嗎?代替使用引用塊,粘貼代碼,突出顯示它,然後單擊「{}」按鈕。你會遇到一個錯誤,因爲它都混雜在一起而沒有分開。這是一個格式問題,假設代碼完全按照您發佈的方式在您的工作簿中。 – BruceWayne
編譯器抱怨哪個特定的指令? –
我試圖編輯出一個實際的代碼塊的報價塊,但我認爲它可能已經搞亂了實際的代碼佈局......很難說。請** [編輯] **問題 - 選擇所有代碼,將其刪除。轉到你的VBA編輯器,選擇所有**相關的代碼**,點擊TAB縮進4個空格,複製然後粘貼到這裏。 –