我正在尝试把一些旧的Excel报告转换成水晶报表。excel工作表使用OLAP-多维数据集,并通过SimbaO2X驱动程序使用XMLA连接连接到数据库。我只是不知道如何在Crystal Reports中使用哪些连接设置来连接到数据库。
我尝试过XML和OLAP连接,但是无法获得数据库连接。
任何有关连接设置的帮助都将不胜感激!
编辑:数据库有点黑匣子;它可能是一个Oracle数据库(在用java重写最终用户前端之前,它是一个Oracle数据库。他们也可以改变数据库。)但是,无论是Oracle Server还是Microsoft OLE for Oracle连接方法,我都没有成功。
今天早上,我
我在同一个工作簿中创建了许多工作表(大约30张)。我试图用VBA编程,其中一个值将出现在一个指定的倍数单元格中,但是存在一个“运行时错误9,Subscript超出范围”的问题。
Sub Invoice()
For i = 5 To 11
With Sheets("Sheet" & i)
.Range("J2") = "a"
End With
Next i
End Sub
如代码所示,值"a“必须出现在从sheet5到sheet11的每个工作表的单元格she
我正在尝试从xmlhttp中抓取元素。我使用vba还不错,但我对数据抓取还比较陌生。我之前一直在使用ie。 我可以将html导入到单元格中,但我想具体导入名称、id、价格和库存水平。 我用于导入数据的代码是 Private Sub HTML_VBA_Excel()
Dim oXMLHTTP As Object
Dim sPageHTML As String
Dim sURL As String
'Change the URL before executing the code
sURL = &
我编写了一个vba代码来隐藏/取消隐藏我的活动工作表中的图表/列表框,这是我分配给一个“按钮”的,或者仅仅是我从excel中的Insert选项卡中提取的一个形状。此代码适用于1形状,但我无法让它与多个形状一起工作。我对VBA并不熟悉,所以我不确定语法的所有细微之处。我现在拥有的是:
Sub OverviewB()
With ActiveSheet.Shapes("Rounded Rectangle 1").TextFrame2.TextRange.Characters
If .Text = "Hide Overview" Then
问题:我正在尝试使用VBA将Outlook中的所有信息提取到Excel电子表格中。我可以从被称为频繁的-used字段的视图中提取信息。我无法将票证编号列数据提取到excel中。票号是用户定义的字段.
以下是Outlook电子邮件标题和电子邮件的截图:
Excel电子表格示例
任何帮助都是非常感谢的。
代码:
For Each objItem In myFolder.Items
Set objMail = objItem
Cells(iRows, 1) = objMail.SenderEmailAddress
Cells(iRows, 2)
背景:使用vba从outlook电子邮件中提取信息到excel表中的项目。
问题:我可以得到所有的标签标题,但票号。票号是我们创建的自定义列标题。
代码引用
当前代码:
For Each objItem In myFolder.Items
If objItem.Class = olMail Then
Dim objMail As Outlook.MailItem
Set objMail = objItem
Cells(iRows, 1) = objMail.SenderEma
我必须做一个宏,以计数电子邮件发件人。
这是我的密码
Dim objDictionary As Object
Dim objInbox As Outlook.Folder
Dim i As Long
Dim objMail As Outlook.MailItem
Dim strSender As String
Dim objExcelApp As Excel.Application
Dim objExcelWorkbook As Excel.Workbook
Dim objExcelWorksheet As Excel.Works
我需要从视图导出到Excel文档的两个日期之间。我创建了基于NotesDateRange的NotesDocumentCollection。
我对以下内容有疑问:
ForAll colval In doc.Columnvalues
当文档来自NotesView时,它工作得很好,但我需要两个日期之间的文档,所以文档来自NotesDocumentCollecion,然后我收到“类型不匹配”错误。
来自NotesView的文档的一段代码,工作正常:
Set doc = view.Getfirstdocument()
row% = 0
While Not doc Is Nothing
row%
我有以下使用Excel2013复选框(ActiveX控件)的代码:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Value = False
Else
CheckBox2.Value = True
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If
E
我有和Excel文件的所有当前任务。任何位置都可以添加新任务。我想通过添加缺少的任务从Excel中更新我的文件。使用.Tasks.Add("name from Excel")将成为MS项目底部的一个新任务。如何使用Excel中的VBA在中间的特定位置添加新任务?在Excel的VBA代码中,我可以使用SelectRow和InsertTask吗?
*编辑忘记提到,.Tasks.Add不允许我使用第二个参数,就像它在文档中说的那样。
With mpp
.Tasks.Add ("name from Excel", RowNumber)
End With
此代码将
在excel VBA中,我似乎找不到这么简单的工作
我有关于手机A1的数据
Sub TestBox()
ActiveSheet.Activate
MsgBox (Cells(0, 0).Value)
End Sub
我想要输出这些数据,基本上使用一个msgBox
运行时错误:“1004”应用程序-defined或对象定义错误
我试图将文本从网站的特定div导入到Word文档中的书签,但我无法从网站读取HTML。我尝试了100个教程,都是针对VBA Excel的(也许这就是原因),结果总是一样的。
假设我有一个这样的站点:
<html>
<div id = "test">
this is an example text
</div>
</html>
下面是我的VBA代码:
Sub read_html()
Set objIE = CreateObject("InternetExplorer.Application")
Dim ht
我们一直致力于编写办公脚本,而不是VBA宏。我还知道用于的Microsoft。有人能指导我如何在不本地创建excel实例的情况下以编程方式执行office脚本(如下面的示例脚本)?
async function main(context: Excel.RequestContext) {
// Set range A1 on selectedSheet
let workbook = context.workbook;
let worksheets = workbook.worksheets;
let selectedSheet = worksheets.getActiveWork
在Excel电子表格中从VBA代码连接到Oracle DB时遇到错误。我运行的查询运行得很好,但是当我试图关闭连接时,我得到了以下错误:
运行时错误3265:在与请求的名称或序号对应的集合中找不到项。
下面是我的代码副本。错误发生在"cn.close“行。任何帮助都将不胜感激!
Sub GetData()
Dim cn As New ADODB.Connection
comm As New ADODB.Command
rs As New ADODB.Recordset
On Error GoTo errhandler:
cn.ConnectionString = "
我正在尝试使用VBA在Excel 2010中构建一个数据输入表单。在表单初始化期间,我将对象设置为引用另一个工作表,以便能够访问它。这就是我所拥有的:
Private Sub UserForm_Initialize()
Dim master As Excel.Workbook
Dim masterworksheetFmn As Excel.Worksheet
Dim masterworksheetAdv As Excel.Worksheet
Dim masterworksheetTechs As Excel.Worksheet
Dim i As Integer
Set master =
我对Outlook中的VBA编程很陌生。
我正在写一个宏,它扫描收件箱和移动电子邮件到特定的文件夹,检查标准,如主题,发送者,身体等。
现在的问题是,当我循环通过邮箱,新的电子邮件进来时,循环就会中断.
第一种可能的解决方案是在宏运行时禁用电子邮件同步。我进一步研究了这一点,并使用Sync.Start和Sync.Stop方法在Outlook中找到了Sync对象。
因此,我声明了所有的变量,如链接,并尝试了代码。所有的事情似乎都是没有错误的,I loop through all the sync objects and stop them,但是我注意到电子邮件无论如何都会出现在我的收件箱里。
我正在从VBA转换到VB.NET,以便使用ExcelDNA进行Excel外接程序。在我的代码中,我试图引用NamedRange的名称(就像我在VBA中那样)来设置这个名称的'ReferTo‘属性。但是,我得到一个错误,它不能转换我提供给Integer的名称。错误:从字符串"MyNamedRangeName“到键入'Integer‘的转换无效。
在下面的代码中,您可以看到错误发生的地点和原因。
Imports Microsoft.Office.Interop
Imports ExcelDna.Integration
Public Class Class1
Sub
人们经常转发邮件给我,并要求我回复原始发件人,后者在CC中。我认为将此人放在to字段中,将forwarder放在CC中会更整洁。所以我喜欢交换它们。我想出了这段VBA:
Sub Swap()
Dim objMail As Outlook.MailItem
Set objMail = Application.ActiveInspector.CurrentItem
With objMail
a$ = .To
.To = .CC
.CC = a$
End With
Set objMail = Nothing
End Sub
不幸的是,收件人是以文本形式复制的。因此,Outloo
我继承了一个充满VBA的电子表格,我几乎一无所知。
当数据被刷新时,电子表格通过VBA重新格式化自身。我不得不更改一些选项卡名和表名,而现在当自动重新格式化在其中启动时,会出现一个错误,因为它正在寻找旧的表名。
对不起,如果这是一个糟糕的解释/术语,我真的从来没有涉及到VBA通常!
所以我得到的错误是
运行时错误“450”:错误的参数数或无效的属性分配
调试带我到了这一行
For Each rptTable In sID.ListObjects
rptTable.TableStyle = teamName <--- this is the highlighted li
我有一个excel文件(*.xlsm),在第一页上有VBA代码:
Private Sub Worksheet_Calculate()
ActiveSheet.ChartObjects("Podtlak").Chart.Axes(xlCategory, xlPrimary).MaximumScale = Range("AV79").Value
End Sub
第二个excel文件,带有宏,改变第一个excel中单元格的值(自动重新计算),然后从第一个excel中复制新结果的值并粘贴到第二个excel文件中。
问题是:当宏要到第二个excel并粘贴值时,工作表被重新
在Access中通过VBA运行查询时,我一直收到运行时错误'2465‘。
错误: Microsoft Access找不到表达式中引用的字段‘|1
我似乎找不到这个问题发生在哪里。下面是我当前用来重新查询表单的VBA代码。
Dim Test As String
Test = "*" & Combo161.Value
Dim strSQL As String
Dim strWhere As String
strWhere = (Chr(34) + Test + (Chr(34)))
'MsgBox (strWhere)
strSQL = "SE
我收到了来自我以前的团队/角色的电子邮件,这些邮件是关于我不再参加的中断期间的技术桥梁的。如果它们被发送到一个特定的分发列表(我仍然是其中的一部分),我想自动拒绝它们。
我一点也不知道VBA,但这能起作用吗(我修改了我找到的另一个脚本,用收件人替换了SenderEmailAddress )。不想运行这一点,直到有人真正知道他们正在观察,确认或否认这将发挥作用(偶然的机会,它做了一些疯狂的东西,我的电子邮件)。
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
我正试图在Excel2010中创建一个VBA,它从另一个电子表格中获取信息,我不允许修改这些信息,并将其带到内置了宏的电子表格中。下面是我的代码:
Sub BringUpWorkbook()
Workbooks("RITE 1624.xls").Activate
End Sub
我有几本VBA书籍,访问过互联网上的几十个站点,包括stackoverflow.com上的站点,但是找不到为什么我收到运行时错误的原因。工作簿已经打开,我尝试添加标题后面的所有内容,尝试删除.xls,甚至在一个变量中执行上述所有操作。有什么想法吗?