Tag: excel 2007

从Excel工作簿导出一些表格到PDF: 我正在编写一个VBA代码，将excel中的某些表单导出到相同的PDF中。我在我的excel文件中有几张图表，每个图表都以“（name）_Chart”结尾。我想将所有名字以图表结尾的图表导出到一个PDF文件。这是我正在写的代码。 Sub FindWS() 'look if it at least contains part of the name Dim s As Worksheet Dim strPath As String strPath = ActiveWorkbook.Path & "\" For Each s In ThisWorkbook.Sheets If InStr(1, s.Name, Chart) Then s.Activate ActiveSheet.ExportAsFixedFormat xlTypePDF, strPath & s.Name & ".pdf" Exit Sub End If Next s End Sub […]

在Excel中合并单元格而不丢失数据: 首先对此做了一个新的线程抱歉，但我不能在现有的线程中发表评论。我试图合并很多像这个线程一样的单元格，但是我对编码有一些新的东西，特别是excel / VBA，所以我没有得到它的工作。我有相同的情况（除了我没有任何空的行），所以我只是试图使用现有线程中的代码不真正理解语法： Sub mergecolumn() Dim cnt As Integer Dim rng As Range Dim str As String For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 cnt = Cells(i, 1).MergeArea.Count Set rng = Range(Cells(i, 2), Cells(i – cnt + 1, 2)) For Each cl In rng If Not IsEmpty(cl) Then str = str + […]

Excel公式来粘贴一个x B模式: 我有两列如下A和B. A列包含1,2,3,4,5，B包含a，b，c，d，e 我想在列C，如1a，1b，1c，1d，1e，2a，2b，2c，2d，2e，3a，3b等。

Excel VBA列表框链接: 我目前有一个两列和多行的macros。这两列包含信息，如名字和一个文件夹或网站的链接。当我点击macros上的button时，它将从Excel工作表中获取所有信息，并显示名字并将其放置在列表框中。我想知道，是否有可能，当我点击button，我显示列表框中的第一个名字，但也存储链接？当我在列表框中select一个项目时，我希望它打开链接。这可能吗？我想到了一种方式，这是与列表框和一个数组存储链接，当我点击一个项目，它search数组，然后打开链接，对于EXMAPLE：如果我点击第一个项目列表框，它将进入数组并转到数组（1），然后获取该链接。这是我想到的一个方法，但有没有更简单的方法？而不是我存储链接到一个数组和所有这一切。我现在的代码是： For row = 3 To 10 ListBox1.AddItem Range("A" & row).Text Next 我不知道如何添加超链接到这个代码

在VB中绑定VBIDE.VBE: 是否有可能延迟绑定Excel中的VBIDE.VBE对象？例如： Dim VBAEditor As VBIDE.VBE 而是成为类似的东西（后期绑定）： Dim VBAEditor As Object: set VBAEditor = CreateObject ("VBIDE.VBE") 我的目标是避免必须手动进入select“Microsoft Visual Basic for Applications Extensibility 5.3”参考的checkbox。解使用下面的反馈，我能够以编程方式dynamic地添加“Microsoft Visual Basic for Applications Extensibility 5.3”参考。解决scheme如下： Sub mainFunction() Call AddLib("VBIDE", "{0002E157-0000-0000-C000-000000000046}", 5, 3) ' Bunch of working code goes here End Sub '****************************************************************************** 'AddLib: Adds a library reference to […]

错误：工作表类的粘贴方法失败: 我被赋予了一个function，通过从网站下载文本文件来检索数据。在gop子文件中，当我调用函数的时候文件会被打开，但是当我试图将数据复制到我的工作表“数据”时，会发生错误：工作表类的粘贴方法失败。有时候这是另一个错误。有没有人碰巧知道解决scheme？ Sub gop() Dim oWsBDR As Excel.Workbook 'On Error Resume Next Set oWsBDR = WbBDR() If oWsBDR Is Nothing Then MsgBox "Le fichier n'a pas été extrait." Else 'Set Workbooks("Task2").Worksheets("Data") = oWsBDR.Sheets("downloadFile") oWsBDR.Worksheets("downloadFile").Cells.Copy 'Windows("Task2.xlsm").Cells(1, 1).Paste 'This doesn't work either Windows("Task2.xlsm").Cells(1, 1).PasteSpecial xlPasteValues 'Error Application.CutCopyMode = False With Worksheets("Data").Cells .HorizontalAlignment = xlCenter […]

我如何解决这个Excel Visual Basic运行时错误'62'？: 我在Excel中创build了一个Visual Basic脚本来打开，抓取内容并closures一个（超过一百个）Word文档。部分代码是： Private Function GrabTextFile(ByVal file_name As String) As String Dim fnum As Long fnum = FreeFile() Open file_name For Input As #fnum GrabTextFile = Input$(LOF(fnum), #fnum) Close #fnum End Function （其余的代码很大程度上基于VB帮助器的这个页面。）该脚本在线失败： GrabTextFile = Input$(LOF(fnum), #fnum) 与消息： Run-time error '62': Input past end of file 它在文档34上失败。但是，如果我删除了特定的文档，然后重新运行该脚本，则在该位置的新文档上失败。这意味着我有一个问题，释放一些内存（？）。

Excel XML导出的XML模式: 我正在疯狂尝试创build一个XML模式来将Excel文件转换为XML文件。示例.xls文件具有两个单元格事件的名称和该地点的名称，那么有一个表每个列的会话和每个行的骑手的名字。这是电子表格的屏幕截图。要保存为XML数据，我需要制作XML模式，并使用Excel 2003外接程序：XML工具外接程序来完成此操作。所以我有这个XML模式： <?xml version='1.0' encoding='UTF-16'?> <!– Created from XmlMap.Name: Results_mapping –> <!– XmlMap.DataBinding.SourceUrl: –> <xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <xsd:element nillable="true" name="Results"> <xsd:complexType> <xsd:sequence minOccurs="0"> <xsd:element minOccurs="0" maxOccurs="unbounded" nillable="true" name="rider" form="unqualified"> <xsd:complexType> <xsd:sequence minOccurs="0"> <xsd:element minOccurs="0" nillable="true" type="xsd:string" name="Column1" form="unqualified"/> <xsd:element minOccurs="0" nillable="true" type="xsd:integer" name="Column_1st_session" form="unqualified"/> <xsd:element minOccurs="0" nillable="true" type="xsd:integer" name="Column_2nd_session" […]

在Excel中validationIBAN: 有没有准备好的Excel表格来validationIBAN？我将进入IBAN，它将显示有效或无效。我search了一些Adds In，并find了这个但我不知道如何打开它。谁能帮忙？

Excel数据validation下拉列表中的空白值: 我不知道Cell A1到A65555有多less值。我有B1，其中设置了基于A列的数据validation，如下A1：A65555 数值出现在最多10列的A列中。（从A1到A10）但是当我点击B1，它显示空值与A1到A10。我希望A列中的所有非空值在B1中列出。注意：我在数据validation设置中勾选了“忽略空白单元格”选项。或者任何一个让我知道如何通过VBA设置数据validation？