Tag: vba

如何删除VBA / Excel中X行下面的所有内容？: 我有一个很长的variablesX包含一个数字。说是415。如何从行415及以下删除工作表上的所有内容？我想确保我的电子表格在第415行以及其他任何可能低于它的地方都是干净的。我该怎么做呢？谢谢。

有没有办法在Excel VBA中创build文件夹和子文件夹？: 好吧，对于那些知道在Excel VBA中是主人的人，我有一个由另一个选项卡上的列表填充的公司的下拉菜单。三列，公司，工作编号和零件编号。我所做的是当创build一个作业时，我需要一个用于创build所述公司的文件夹，然后是基于所述部件号创build的子文件夹。所以如果你沿着这条路走下去就像这样： C:\Images\Company Name\Part Number\ 现在，如果公司名称或零件编号存在，则不要创build或覆盖旧的。只需进入下一步。因此，如果两个文件夹都不存在，则根据需要创build一个或两个文件夹。这有道理吗？如果有人能帮助我理解这是如何工作，以及如何使其工作，将不胜感激。再次感谢。另一个问题，如果它不是太多，是否有办法使它在Mac和PC上的作品相同？

最小的学习曲线语言与CSV文件一起工作: VBA不再为我切割。我有很多庞大的Excel文件，我需要做大量的计算，并将其分解到其他Excel / CSV文件。我需要一种语言，我可以在接下来的几天内采取措施来做我所需要的，因为这是一种紧急情况。我已经被build议python，但我想检查一下，如果有任何其他的CSV文件处理快速和容易。

确定用户是否添加或删除行: 我有一个VBAmacrosvalidation用户input的数据（我没有使用数据validation/有条件的格式）。我正在使用Worksheet_Change事件来触发代码，我现在面临的问题是，当有行更改。我不知道是否是删除/插入行。有没有区分这两个？

使用Excel VBA获取SharePoint文件夹的内容: 通常我使用这段代码来检索VBA中文件夹的内容。但是在共享点的情况下这是行不通的。我能怎么做？ Dim folder As folder Dim f As File Dim fs As New FileSystemObject Set folder = fs.GetFolder("//sharepoint.address/path/to/folder") For Each f In folder.Files 'Do something Next f 编辑（在shahkalpesh好评后）：如果我在Windows资源pipe理器中input地址，则可以访问该共享点。访问共享点需要authentication，但它是透明的，因为它依赖于Windowslogin。

将代码分配给dynamic创build的button: 我试图得到一个button，我已经dynamic创build一个Excel用户窗体来运行一个叫做transfer的macros，我已经写在我的项目的“模块”部分的Module 1 。下面我粘贴了我已经写在代码中的代码，它实际上是在框架中创build了Transfer to Sheetbutton（我也是dynamic创build的），但由于某种原因，当我运行VBA时， 438 error消息说Object doesn't support this property or method 。有谁可以告诉我如何解决这个问题？代码如下： Dim framecontrol1 As Control Set workitemframe = Controls.Add("Forms.Frame.1") With workitemframe .Width = 400 .Height = 400 .Top = 160 .Left = 2 .ZOrder (1) .Visible = True End With workitemframe.Caption = "Test" Set framecontrol1 = workitemframe.Controls.Add("Forms.commandbutton.1") […]

使用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开发的替代IDE吗？: 我正在使用Excel 2003和用于编程VBA的内置IDE，但很多事情都让我感到困惑。显然，VBA IDE的内置特性是一个很大的优点。那里有（免费的）替代品吗？

VBA：如何显示一个错误消息就像标准的错误信息有一个“debugging”button？: 和往常一样，我使用On Error Goto语句创build一个error handling程序，在那里我放了几行清理代码并显示错误消息，但现在我不想失去默认处理程序的舒适性，这也指向我发生错误的确切位置。我怎样才能做到这一点？提前致谢。