在MS Access中运行Excel宏时运行时错误

这是我的第一篇文章，我对编程非常陌生。在MS Access中运行Excel宏时运行时错误

我目前卡在一行代码，当图形正在建立时停止。基本上我有一个数据库/访问，我有一个功能，我点击按钮，它打开一个特定的位置文件。然后打开Excel并开始运行我的代码，然后暂停。

下面是一个片段，它被卡在下面一行

ActiveChart.Axes（xlValue，xlPrimary）.AxisTitle.Text = “M³每月”

Range("A2:M6").Select 
ActiveSheet.Shapes.AddChart.Select 
ActiveChart.ChartType = xlLine 
ActiveChart.SetSourceData Source:=Range("LCLSPENDGRAPH!$A$2:$M$6") 
ActiveChart.SetElement (msoElementDataTableShow) 
ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated) 
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "M³ Per Month" 
Selection.Format.TextFrame2.TextRange.Characters.Text = "M³ Per Month" 
With Selection.Format.TextFrame2.TextRange.Characters(1, 11).ParagraphFormat 
    .TextDirection = msoTextDirectionLeftToRight 
    .Alignment = msoAlignCenter 
End With 
With Selection.Format.TextFrame2.TextRange.Characters(1, 11).Font 
    .BaselineOffset = 0 
    .Bold = msoTrue 
    .NameComplexScript = "+mn-cs" 
    .NameFarEast = "+mn-ea" 
    .Fill.Visible = msoTrue 
    .Fill.ForeColor.RGB = RGB(0, 0, 0) 
    .Fill.Transparency = 0 
    .Fill.Solid 
    .Size = 10 
    .Italic = msoFalse 
    .Kerning = 12 
    .Name = "+mn-lt" 
    .UnderlineStyle = msoNoUnderline 
    .Strike = msoNoStrike

任何建议，将不胜感激。

亲切的问候 JDogg

来源

2016-07-06 JDogg

还忘了提及的是，宏/代码工作正常，只是在Excel中，但是当我有嵌入成访问它不工作？ – JDogg

从Access中自动执行excel时，需要获取对Excel应用程序对象的引用，并将其引用到Excel对象中。另外，在Access VB项目中添加对excel对象模型的引用。 –

感谢Tim，我在Access Vb中添加了Excel对象模型。但我怀疑代码中的某些内容不太正确。 – JDogg

如果你想从访问控制Excel中，您基本上有2个选项。请尝试以下2个脚本和后背部有其他问题...

‘EARLY BINDING 
Option Compare Database 
Option Explicit ' Use this to make sure your variables are defined 

' One way to be able to use these objects throughout the Module is to Declare them 
' Here and not in a Sub 

Private objExcel As Excel.Application 
Private xlWB As Excel.Workbook 
Private xlWS As Excel.Worksheet 

Sub Rep() 

Dim strFile As String 

strFile = "C:\Users\Excel\Desktop\YourExcelFile.xls" 

' Opens Excel and makes it Visible 
Set objExcel = New Excel.Application 
objExcel.Visible = True 

'Opens up the Workbook 
Set xlWB = objExcel.Workbooks.Open(strFile) 

'Sets the Workseet to the last active sheet - Better to use the commented version and use the name of the sheet. 
Set xlWS = xlWB.ActiveSheet 
'Set xlWS = xlWB("Sheet2") 

With xlWS ' You are now working with the Named file and the named worksheet 


End With 

'Do Close and Cleanup 
End Sub 


  
‘LATE BINDING 
Sub ControlExcelFromAccess() 

' No reference to a type library is needed to use late binding. 
' As long as the object supports IDispatch, the method can 
' be dynamically located and invoked at run-time. 

' Declare the object as a late-bound object 
    Dim oExcel As Object 
    Dim strFile As String 

    strFile = "C:\Users\Excel\Desktop\YourExcelFile.xls" 

    Set oExcel = CreateObject("Excel.Application") 

' The Visible property is called via IDispatch 
    oExcel.Visible = True 

    Set xlWB = oExcel.Workbooks.Open(strFile) 

'Call Ron's code here . . . 

Set oExcel = Nothing 

End Sub

来源

2016-07-10 04:38:26 ryguy7272

在MS Access中运行Excel宏时运行时错误

回答

相关问题