Tag: excel 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 = […]

如何正确地写下面的嵌套For Each循环？: 所以，我有一个数据sorting问题。本质上，我必须排第2行的单元格在第1行的近似值之下。数据通常会显示为：但是我要求Row2的数据在它的Row1对象的近似值（在1.2之内）被sorting，如下所示：我相信最好的办法是创build一个For Each循环的嵌套集合，如下所示： Dim F As Range Dim Q As Range For Each F In Range("A1:C1") For Each Q In Range("A2:C2") If Q.Cell.Value <= (F.Cell.Value + 1.2) Then F.Offset(1, 0).Value = Q.Cell.Value Exit For End If Next Q Next F 虽然这已被certificate是具有挑战性的我的意图是反复检查Row1的值，并且，如果在Row2中find了具有必要条件的值，请将其置于Row1中的对应项下。代码已经暂停，但是，由于“运行时错误'438'：对象不支持此属性或方法”。如何正确编写代码以避免这样或类似的错误？非常感谢！如果您有任何改进build议，请随时提出build议。最好，

从其他工作簿复制/粘贴: 我写了代码来复制和粘贴到我的工作簿从其他工作簿使用的范围。在我的电脑中，它可以工作，但是当我发送给任何人时，粘贴过程导致错误信息： “此图片目前无法显示。” 目前的版本，我用xlPasteAll： Workbooks(fl.Name).Worksheets(sheetindex).Range("A2:P" & Lastrow).Copy Workbooks(fl.Name).Close Worksheets(sheetindex).Activate ActiveSheet.Range(Cells(startrow,1),Cells(rangeCount,16)).PasteSpecial xlPasteAll

将Excel图表复制/粘贴到PowerPoint并断开链接: 我想复制粘贴几个图表使用VBA（Excel和PowerPoint 2013）的PowerPoint。只要我不试图破坏Excel和PowerPoint之间的graphics连接 – 我绝对需要这样做，我的macros下面工作正常。我查了一下Google，发现有人build议使用.Breaklink方法：只要在我的工作表上没有多于一个图表，我们就可以使用.Breaklink方法。如果至less有两个graphics，它将正确复制第一个graphics，然后在第二个graphics上工作时抛出“MS PowerPoint已停止工作”消息。我应该如何继续？我试图在.Chart.ChartData和.Shape对象上应用.BreakLink方法无济于事。 Sub WhyIsThisWrong() Application.ScreenUpdating = False Dim aPPT As PowerPoint.Application Dim oSld As PowerPoint.Slide Dim oShp As PowerPoint.Shape Dim oCh As ChartObject Set aPPT = New PowerPoint.Application aPPT.Presentations.Add aPPT.Visible = True For Each oCh In ActiveSheet.ChartObjects oCh.Activate ActiveChart.ChartArea.Copy aPPT.ActivePresentation.Slides.Add aPPT.ActivePresentation.Slides.Count + 1, ppLayoutText Set oSld = […]

将.xlx导入Oracle PL / SQL数据库: VBA将数据导入Oracle PL / SQL数据库时遇到问题。我有这个脚本： sql = "insert into my_table (Name, Surname,Phone,Email,Date, time_1,Time_2,Note, Source, Change,State,Result) values ( '" & Cells(cellNumber, 1) & "' , '" & Cells(cellNumber, 2) & "' , '" & Cells(cellNumber, 3) & "' , '" & Cells(cellNumber, 4) & "', to_date('" & Cells(cellNumber, 5) & "'," & "'DD.MM.YYYY')," & " to_date('" […]

将工作簿中的命名范围及其值的导入/导出导出为.csv: 我有一个.csv有两列：colA命名范围和colB有值。现在，我需要从.csv中导入值，并将它们分配到多个工作表中的工作簿中的命名范围。另外我需要以相同的方式导出相同的。即一个工作簿已经命名了范围，显然有一些相关的值。有没有办法导出相同的格式，以便我可以用它来导入它们以后？对于导入，我修改了下面提供的代码，但仍然不成功： Option Explicit Sub impdata() 'This is to import data from csv to xlsm Dim MyCSV As Workbook Dim filename As String Dim curfilename As String Dim MyRange As Range Dim MyCell As Range Dim x As Long Dim y As Workbook curfilename = ThisWorkbook.Name filename = Application.GetOpenFilename Set y […]

自动将工作簿中的某些工作表保存为CSV文件: 我find了一个体面的解决scheme将Excel工作表保存为CSV文件，使用VB将工作簿中的所有工作表保存为CSV文件。不过，我希望能够修改这个代码，只保存表单名以_t结尾的工作表。我正在使用下面的代码： Sub SaveWorksheetsAsCsv() Dim WS As Excel.Worksheet Dim SaveToDirectory As String Dim CurrentWorkbook As String Dim CurrentFormat As Long CurrentWorkbook = ThisWorkbook.FullName CurrentFormat = ThisWorkbook.FileFormat ' Store current details for the workbook SaveToDirectory = "H:\test\" For Each WS In ThisWorkbook.Worksheets Sheets(WS.Name).Copy ActiveWorkbook.SaveAs Filename:=SaveToDirectory & ThisWorkbook.Name & "-" & WS.Name & ".csv", FileFormat:=xlCSV ActiveWorkbook.Close […]

电子邮件不正确的所有收件人: 当有多个用户发送的第一封电子邮件是正确的，但在第二个只有For 10/23/2015出现。下面是一个正确的电子邮件的副本，数据来自哪里和代码。正确的电子邮件 **For 10/2/2015** ( Msg = "For " & c.Offset(, 1) & Chr(14) & Chr(14) **-There are no issues to report in the HLA & Molecular Diagnostics Laboratory.** ( For i = 3 To 4 If LCase(WS.Cells(c.Row, i)) = "x" Then Msg = Msg & " -" & WS.Cells(1, i) & Chr(14) […]

与VBA合并单元格: 我正在寻找合并3个水平单元格，但我这样做是在一个循环。代码看起来像这样： myrange.Range(cells(3,i), cells(3,i+3)).mergecells = true 这不起作用。我猜它是因为代码试图合并两个不相邻的单元格。使用这种单元地址types合并一系列单元格的语法是什么？任何帮助将不胜感激！谢谢！

将高级公式插入到单元格中: 使用Excel 2016我很努力地将一个公式粘贴到一个使用VBA（VBA执行数据导入）的单元格中。我有两张表： Rapport SNN和Data 。 Sheets("Rapport SNN").[E4].Formula = "=SUMIFS(Data!S2:Data!S2000;Data!V2:Data!V2000;""BankAxept"";Data!M2:Data!M2000;C4)/100" 只是给我一个：运行时错误“1004”：应用程序定义或对象定义的错误。我做错了什么？