Tag: vba

在Excel VBA中删除一行

我有这段代码，它从列表中find一个项目的excel行并删除列表中的项目。 我想要的是删除Excel行。 代码在这里 Private Sub imperecheaza_Click() Dim ws As Worksheet Dim Rand As Long Set ws = Worksheets("BD_IR") Rand = 3 Do While ws.Cells(Rand, 4).Value <> "" And Rand < 65000 If ws.Cells(Rand, 4).Value = gksluri.Value * 1 And ws.Cells(Rand, 5).Value = gksluri.List(gksluri.ListIndex, 1) * 1 Then ws.Range(Rand, 1).EntireRow.Delete '(here I want to delete the […]

在VBA中parsingHTML内容

我有一个关于HTMLparsing的问题。 我有一个网站的一些产品，我想抓到页面内的文字到我目前的电子表格。 这个电子表格相当大，但在第三列中包含ItemNbr，我期望第14列中的文本和一行对应于一个产品（项目）。 我的想法是在标签后面的Innertext里面获取网页上的“材质”。 身份证号码从一个页面更改为页面（有时）。 这里是网站的结构： <div style="position:relative;"> <div></div> <table id="list-table" width="100%" tabindex="1" cellspacing="0" cellpadding="0" border="0" role="grid" aria-multiselectable="false" aria-labelledby="gbox_list-table" class="ui-jqgrid-btable" style="width: 930px;"> <tbody> <tr class="jqgfirstrow" role="row" style="height:auto"> <td …</td> <td …</td> </tr> <tr role="row" id="1" tabindex="-1" class="ui-widget-content jqgrow ui-row-ltr"> <td …</td> <td …</td> </tr> <tr role="row" id="2" tabindex="-1" class="ui-widget-content jqgrow ui-row-ltr"> <td …</td> <td …</td> […]

从第1行开始，select列F中的第一个空单元格（不使用偏移量）

这是一个我很困惑的查询。 因为我已经找了这么多次，但我总是find相关的代码find最后使用或第一个非空的单元格。 试着在下面的代码。 diff代码已被单词“even”分开 iRow = Worksheets("Sheet1").Cells(Rows.Count,1).End(XlUp).Row 甚至 Sub LastCellBeforeBlankInColumn() Range("A1").End(xldown).Select End Sub 甚至 在列中查找最后使用的单元格： Sub LastCellInColumn() Range("A65536").End(xlup).Select End Sub 甚至 在一行的空白处find最后一个单元格： Sub LastCellBeforeBlankInRow() Range("A1").End(xlToRight).Select End Sub 甚至 查找行中最后使用的单元格： Sub LastCellInRow() Range("IV1").End(xlToLeft).Select End Sub 甚至 Worksheets("Sheet1").Range("A1").End(xlDown).Row + 1 甚至 LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1 Sheets("SheetName").Range("A" & LastRow).Paste 甚至 Dim FirstBlankCell as Range Set […]

如何确定VBA中使用的最后一行，包括两者之间的空格

我如何确定Excel工作表中的最后一行，包括中间的一些空行？ 有了这个function： Function ultimaFilaBlanco(col As String) As Long Dim lastRow As Long With ActiveSheet lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, col).End(xlUp).row End With ultimaFilaBlanco = lastRow End Function 而这个数据： Row 1 : Value Row 2 : Value Row 3 : Value Row 4 : Value Row 5 : Value Row 6 : White Row 7 : Value Row […]

VBA：在两种方式中声明一个新对象的区别？ （试图了解我的解决scheme为什么工作）

我在一个循环内创build一个新的对象，并将该对象添加到一个集合中; 但是当我读回集合后，它总是完全填充了我添加的最后一个对象。 我提出了两种解决方法，但我不明白为什么我的初始实现是错误的。 原版的： Dim oItem As Variant Dim sOutput As String Dim i As Integer Dim oCollection As New Collection For i = 0 To 10 Dim oMatch As New clsMatch oMatch.setLineNumber i oCollection.Add oMatch Next For Each oItem In oCollection sOutput = sOutput & "[" & oItem.lineNumber & "]" Next MsgBox sOutput 这导致每行的数字是10; […]

代码循环访问MS Access中的所有logging

我需要一个代码来遍历表中的所有logging，所以我可以提取一些数据。 除此之外，是否有可能通过筛选logging进行循环，并再次提取数据？ 谢谢！

如何使用VBA将图片插入指定单元格位置的Excel中

我用下面的代码将“.jpg”文件添加到我的Excel工作表中： 'Add picture to excel xlApp.Cells(i, 20).Select xlApp.ActiveSheet.Pictures.Insert(picPath).Select 'Calgulate new picture size With xlApp.Selection.ShapeRange .LockAspectRatio = msoTrue .Width = 75 .Height = 100 End With 'Resize and make printable With xlApp.Selection .Placement = 1 'xlMoveAndSize '.Placement = 2 'xlMove '.Placement = 3 'xlFreeFloating .PrintObject = True End With 我不知道我在做什么错，但它不会插入到正确的单元格，所以我应该怎么做，把这个图片到Excel中指定的单元格？

将范围从A1返回到最后一个使用的单元格

我想select电子表格中的所有行和列。 macros需要是dynamic的，因为每次macros被调用时，列和行的数量都会变化。 它还需要能够考虑空白的行和列。 这个子程序完成了部分过程： Sub FindLastCell() Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Select End Sub 它find并select电子表格中最后一个单元格。 现在我已经find了电子表格中最后一个单元格，如何select单元格A1作为范围的LastCell？

使用VB将excel工作表保存为CSV文件名+工作表名称

我很新的VB编码，我试图保存多个Excel文件工作表到CSV，我不知道这样做多张，但我find了一种方法来做单个文件。 我发现在这个网站上的代码是非常有用的，我想要做的，只有问题是文件与工作表名称保存，但我想保存与原始文件和工作表名称，如filename_worksheet name ，我试图自己做这件事，但不断发生错误，请问我是否做错了？ 我正在使用的代码如下所示： Public 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 WS.SaveAs SaveToDirectory & WS.Name, xlCSV Next Application.DisplayAlerts = False ThisWorkbook.SaveAs […]

使用VBA检查文件是否存在

Sub test() thesentence = InputBox("Type the filename with full extension", "Raw Data File") Range("A1").Value = thesentence If Dir("thesentence") <> "" Then MsgBox "File exists." Else MsgBox "File doesn't exist." End If End Sub 在这个时候，我从input框中拾取文本值，它不起作用。 但是，如果从If Dir()除去"the sentence" ，并将其replace为代码中的实际名称，则可以使用。 有人可以帮忙吗？