Tag: vba

发送键的语法

我正在尝试使用Excel VBA脚本在文本框中input一个值。 Iam使用下面的代码相同 Dim sel3 as WebElement sel3 = driver.findElementByName("*amtfld" & l).SendKeys "100" 但在编译过程中给了我SYNTAX ERROR

使用VBA将外部.txt表导入PowerPivot？

我想导入一些.txt表格到PowerPivot而不点击“From Other Sources” – >“Text File”，而是运行一个VBAmacros。 这个想法是，有几个.txt表，说 C:\Table1.txt C:\Table2.txt C:\Table3.txt etc. 并创build一个用户表单或类似的，以便用户可以select他需要哪些表，然后VBA创build一个单一的PowerPivot附加表中select的表。 我知道如何做，如果不是两部分： 1）如何使用VBA命令从外部源（C：\）将表导入PowerPivot？ 2）如何通过VBA将这些表“附加”到一个表中，使得它们不会在PowerPivot中显示为不同的表，而是作为一个总是具有相同名称的表？ 我可以find切线的问题和信息，但没有工作的例子，如何自动从外部.txt源（或.csv或.accdb为这个问题）导入表到这样一个单一的PowerPivot表… 非常感谢你！

如何从我的活动工作簿中的另一个项目运行子例程？ VBA

这是我的情况： 我从我自己的电子表格“Howie.xlsm”打开我的计算器“DR Calculator.xlsm” 从“Howie.xlsm我想运行”DR计算器“中find的子例程Button_ClickClear 我已经尝试了以下内容： Windows("DR Calculator.xlsm").Activate Run Macro:="C:\Users\rchun1\Documents\Demand\DR Calculator\'DR Calculator.xlsm'!Button5_ClickClear" 我得到以下错误： Cannot run the macro 'C:\Users\rchun1\Documents\Demand\DR Calculator\'DR Calculator.xlsm'!Button5_ClickClear'. The macro may not be available in this workbook or all macros may be disabled. 我已经通过与信任中心搞混了所有的Excel文件中的所有macros，并尝试搞乱工具中的参考。 我曾尝试的来源： http : //answers.microsoft.com/en-us/office/forum/office_2003-customize/how-do-i-call-a-procedure-from-a-module-in-a/ 5e8645a6-3739-4fcc-be13-52e216f7961f？auth = 1 http://www.ozgrid.com/forum/showthread.php?t=80137 谢谢，瑞安

如果在单元格中找不到内容/文本/数字，则清除整行

我正在写一个VBA脚本，将删除（清除内容）的整个行如果行内的单元格之一被发现是空白或没有任何文本或整数值。 我几乎在那里，但我认为我的代码卡在for循环。 请让我知道如何进一步改善我的代码。 Sub Remove_Rows_BlankData() For SheetCount = 1 To Sheets.Count 'SHEET LEVEL Sheets(SheetCount).Visible = True Sheets(SheetCount).Select StartRow = 2 ' EndRow = Cells(ActiveSheet.UsedRange.Rows.Count, 34) LastRow = ActiveSheet.UsedRange.Rows.Count LastCol = ActiveSheet.UsedRange.Columns.Count Dim myRange As Range Set myRange = Range(Cells(StartRow, 1), Cells(LastRow, LastCol)) 'REMOVE ROWS W/ ANY BLANK CELLS Dim DRow As Variant ' Sets DRow […]

将多个.xls文件合并到一个工作表中

我有一个完整的.xls文件的文件夹，所有的文件都有相同的结构（列名），我希望代码打开文件夹中的每个文件，复制sheet1的内容并粘贴到另一个excel文件中，打开第二个文件复制并追加到表单1中。 目前我有这样的代码做不同的工作表 Sub GetSheets() Path = "C:\Users\dt\Desktop\dt kte\" Filename = Dir(Path & "*.xls") Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub

用input框复制范围并粘贴到特定工作表上的固定范围

您好，我有这个代码，它允许我复制一个自定义的范围，并粘贴在指定的工作表上的范围。 但是，当插入指定表单的固定范围时，我无法做到这一点。 例如下面的代码将链接粘贴到工作表2，但是我希望它能够粘贴链接到工作表2的范围（B2：N5）。这怎么办？ 一些帮助将非常感激！ Sub WorkingDuoFunctionCode() Dim rng As Range, inp As Range Set rng = Nothing Set inp = Selection inp.Interior.ColorIndex = 37 On Error Resume Next Set rng = Application.InputBox("Copy to", Type:=8) On Error GoTo 0 If TypeName(rng) <> "Range" Then MsgBox "Cancelled", vbInformation Exit Sub Else rng.Parent.Activate rng.Select inp.Copy Worksheets("Sheet2").Paste Link:=True End […]

Vba创builddate（不是星期几），即：第1天，第2天等date

一个vba-excelmacros来修改我的报告从当前所需的格式在所附的工作表中。 概要 我想添加一个列作为“发生date” – 即：第1天…第Z天根据date/时间列，以便能够使用数据透视表来标识每天使用的所有代码为每个帐号的整个逗留服务。 有4万行帐号与不同的服务天数。 列数应保持与示例中相同。 当前工作表 期望的工作表

VBA删除每个工作表中的前7行

我想删除工作簿中包含的每个工作表中的前7行。 我有下面的代码，但是，我认为有一个循环的问题，我不能让代码正确执行; 我将不胜感激任何帮助！ Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ActiveWorkbook.Worksheet(I).Rows(8).EntireRow.Delete Next I End Sub

需要VBA代码来select列表中匹配名称的表，然后保存到一个新的工作簿

我有一个棘手的VBA，我正在尝试创build。 我目前拥有的是另外两个macros，它们search两张供应商名称，并用他们的特定信息创build新的工作表。 这使我大约40张，现在我想要做的是写一个macros，将在工作表标题中search供应商名称，并保存与该供应商关联的所有工作表到一个新的工作簿（如果文件存在更新该工作簿中的当前工作表）。 我将在一张表中列出我想用作search条件的供应商列表。 这里是我运行的第一个macros的例子 Sub ERP_POS() Dim ws1 As Worksheet Dim wsNew As Worksheet Dim rng As Range Dim r As Integer Dim c As Range Dim bAF As Boolean Set ws1 = Sheets("ERP_POS") Set rng = Range("Database") bAF = ws1.AutoFilterMode 'extract a list of Sales Reps With ws1 .Columns("P:P").Copy _ Destination:=.Range("X1") .Columns("X:X").AdvancedFilter _ […]

我应该使用哪个版本的null？

Excel不断出现一个错误消息：编译错误 对象的无效使用 If range("C13:17").Find(11) = Nothing Then 'Do nothing Else range(findeleven).Select ActiveCell.FormulaR1C1 = 1 End If 请帮忙 ：-） 顺便说一下，它是用VBA编写的