Excel中input的名称“无效”错误

我试图运行一个简单的VBScript示例(而不是一个Excelmacros),并运行到您input的名称是无效的问题。 名称有一个下划线,没有空格,工作簿是全新的(名称pipe理器什么也没有显示)。 另外,虽然大多数Web示例显示:=这是我的语法错误。 Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open("C:\test.xlsx") 'This line fails objExcel.ActiveWorkbook.Names.Add Name="_myRange", RefersTo="Sheet1!$A$1:$D$3" objExcel.ActiveWorkbook.Save objExcel.ActiveWorkbook.Close objExcel.Application.Quit WScript.Echo "Finished." WScript.Quit 有任何想法吗?

如果连接到Azure的Excel工具保存在OneDrive上,我的团队是否必须连接到ODBC?

我在OneDrive上托pipe一个Excel工具,并与我的团队分享。 我想locking它作为只读,以确保我的团队不能删除它。 每次他们想要使用Excel工具时,他们都需要在本地下载一个新文件。 这个Excel工具将从Azure中提取数据。 他们每次想要使用从OneDrive下载的Excel工具时是否需要连接到ODBC,或者是否已经连接到Azure数据库?

PowerPivot中的SUMIFtypes函数

我对Excel非常熟悉,但是对于PowerPivot来说是非常新的。 我有一个数据集,其中包括每个赛季每个NBA球员的比赛日志,我想要一个新的列来计算一个球员在一个特定的夜晚总分钟数。 在Excel中,这将是一个简单的SUMIF: [Minutes] if [Team] = [@Team] and [Date] = [@Date] 如何在PowerPivot中处理这个问题,或者在将数据导入PowerPivot之前,我需要做些什么?

用户窗体combobox

我有一个用户窗体有一个combobox和一个文本框。 TextBox需要为ComboBox的值做一个查找,但是如果该值存在于列表中,如果不存在,我不想在TextBox中出现任何东西,所以用户可以input新的信息。 这是我有多远: Private Sub TextBox1_Enter() If cbocolor.Value <> "" Then Dim evalStr As String Dim check As Variant evalStr = WorksheetFunction.VLookup(cbocolor.Value, worksheets("CONTACTS").Range("allcontacts"), 2, False) check = Evaluate(evalStr) If VarType(check) = vbError Then TextBox1.Value = "Enter new info" Else var1 = WorksheetFunction.VLookup(cbocolor.Value, Worksheets("CONTACTS").Range("allcontacts"), 2, False) TextBox1.Value = var1 End If

将负数格式化为深红色

我把我的单元格格式化为带有括号的红色的负数,但是我试图使红色变成更深的红色,以便打印出来更好。 我目前有下面的格式代码,似乎没有办法让红色变黑: $#,##0_);[Red]($#,##0) 不幸的是,我不能运行任何VBA代码和条件格式将是一个很长的过程在这张表上。

没有看到Excel VBA的PDF字段

我的任务是创build一个Excel工具,将数千个PDF数据导入到Excel中。 我已经安装了Adobe Acrobat X Professional,它似乎工作正常。 我正在使用Excel 2007。 我在这里find示例代码: http : //khkonsulting.com/2010/09/reading-pdf-form-fields-with-vba/ 并稍微修改它,以提示我浏览到PDF文件,并设置“Adobe Acrobat 10.0types库”的引用,我想这个代码: Sub Main() Dim AcroApp As Acrobat.CAcroApp Dim theForm As Acrobat.CAcroPDDoc Dim jso As Object Dim text1, text2 As String Set AcroApp = CreateObject("AcroExch.App") Set theForm = CreateObject("AcroExch.PDDoc") Dim strFullPath As String strFullPath = Application.GetOpenFilename() theForm.Open (strFullPath) 'theForm.Open ("C:\temp\sampleForm.pdf") Set jso = […]

在表格内到期的账单总和

在我之前的问题中,我问了如何根据今天的date自动告诉我下一个账单何时到期。 这里是链接: 显示即将到期的date 。 一旦我编制了这些账单,假设我在表A2:C4中有一系列账单,在这个系列中我包括了types,到期金额和到期日。 我需要学习如何生成一个公式,该公式显示了在B6:D6中列出的工资支付date之间到期的账单总和。 我有一个图像,显示了我想要完成的一些东西。 我想要做的是在单元格C8中,我需要具有单元格B6和C6之间的date的公式的公式。 包括唯一的账单应该是签证,所以25美元到期。 但是,一旦我得到了报酬,下一个付款date将是11/6/15,我将需要支付美国运通卡账单和万事达卡账单,因此在C8单元中需要显示50美元。 我知道有一种方法可以做到这一点,但是当我试图弄清楚的时候,我的脑子会受到伤害。

如何使用日志触发事件(发送确认)发送通知邮件

有没有办法使用日志上的消息触发通知我能够parsing并发送警告和错误的电子邮件? 如果有logging失败,我也正在查看数据映射器的错误或警告,因为我已将错误input策略参数设置为宽松。 我相信我应该可以打电话给某个class级。 有什么想法吗?

将.txt转换为嵌套文件夹中的.xls

我find了一个Python脚本来将.txt转换为.xls,并且它正在工作: 将多个制表符分隔的.txt文件转换为多个.xls文件 : import glob import csv import xlwt import win32com.client as win32 for filename in glob.glob("C:\Users\MSI\Desktop\Python Lab\AGR\\*.txt"): spamReader = csv.reader((open(filename, 'rb')), delimiter='|',quotechar='"') encoding = 'latin1' wb = xlwt.Workbook(encoding=encoding) sheet=xlwt.Workbook() sheet = wb.add_sheet('sheet 1') newName = filename for rowx, row in enumerate(spamReader): for colx, value in enumerate(row): sheet.write(rowx, colx, value) wb.save(newName.replace('.txt','.xls')) print "Done" 但是,它只能转换文件path,但不能转换嵌套文件夹中的任何文件。 我如何修改它以包含嵌套的文件夹?

用双“For”循环标记区域

我正在尝试执行以下操作:我想将不同区域(以黄色标记)存储在一个string中。 第一个黄色区域是F7:G8,第二个是I7:J8等,使得该串变为:“F7:G8,I7:J8,L7:M8,F10:G11,I10:J11,L10:M11”。 所以在这个例子中,我有三个区域在右边,两个在下面。 右边和下边的区域数量可能会有所不同,所以我想要编码,我只需要指定向右和向下的区域。 请注意,第一个区域始终是F7:G8,所以我可以使用它作为参考。 现在,在下一个区域之前跳过的列数可能会有所不同,并且在下一个区域之前跳过的行数可能会有所不同。 所以我需要考虑。 我有以下的VBA代码: Sub test() ' ' test Makro ' ' Dim i As Integer, j As Integer k = 2 'areas downwards' l = 3 'areas rightwards' Dim area As String Let area = "F7:G8" 'first area, always the same' Dim Upper_letter As String Let Upper_letter = "F" Dim […]