Tag: vba

将多个CSV导入到单个工作簿中的多个工作表: 我该怎么做呢？基本上我想我的多个CSV文件被导入到多个工作表，但只在一个工作簿。这是我想循环的VBA代码。我需要循环查询C:\test\ Sub Macro() With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;C:\test\test1.csv", Destination:=Range("$A$1")) .Name = "test1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = 437 .TextFileStartRow = 1 .TextFileParseType = […]

在多个excel文件上运行相同的excelmacros: 我有一个文件夹，我在日常的基础上收到超过1000个excel文件，它们都是相同的格式和结构。我想要做的是在每日所有100多个文件上运行一个macros？有没有办法自动化呢？所以我可以每天在1000多个文件上继续运行这个macros。

Excel VBA – 删除string内容最多* word *: 我试图删除string内容到string中包含的某个单词。例如 "Emily has wild flowers. They are red and blue." 我想用VBA来replace它 "They are red and blue." 即将所有内容删除到“他们”一词。我不知道string的内容和它包含的字符的数量。我不知道如何做到这一点，我真的很感激你的帮助！

拼写检查Excel函数中的单个单词: 这个小小的Excel VBA函数总是返回false，不传什么字。 Function SpellCheck(SomeWord As String) SpellCheck = Application.CheckSpelling(SomeWord) End Function 事实上，在IDE中，我可以validationApplication.CheckSpelling（“hello”）失败，但Excel拼写检查器确实检测到拼写错误。我想要做的是获得每个单词的T / F值，如果拼写正确。

使用VBA代码复制和粘贴数据: 我在电子表格上有一个button，当按下时，应该允许用户打开一个文件，然后复制电子表格“数据”的列AG，然后将这些列中的数据粘贴到当前表格中。我在代码中有一个逻辑错误; 它运行，但它将select粘贴在错误的地方。我无法引用这两个工作簿。这是我的代码： Sub Button1_Click() Dim excel As excel.Application Dim wb As excel.Workbook Dim sht As excel.Worksheet Dim f As Object Set f = Application.FileDialog(3) f.AllowMultiSelect = False f.Show Set excel = CreateObject("excel.Application") Set wb = excel.Workbooks.Open(f.SelectedItems(1)) Set sht = wb.Worksheets("Data") sht.Activate sht.Columns("A:G").Select Selection.Copy Range("A1").Select ActiveSheet.Paste wb.Close End Sub

如何从R中将Excel工作表范围导出到图片: 我们正试图在R脚本中自动创build一些图片文件。我们有Excel文件寻找我们想要他们的方式，但现在需要制作一个JPG或PNG图片副本的Excel表格，以方便networking发布。我们已经使用了library(xlsx)包来处理R和Excel之间的大部分交互，看起来我们应该能够通过类似于?.jmethods方式发送特定的java命令，但是我们不知道如何传递尽可能多的行因为我们需要。在R会话中，这是一个最小的可重现的例子… 这里是一个范例Excel文件的例子 library(xlsx) file <- system.file("tests", "test_import.xlsx", package = "xlsx") file 这里是将Excel范围导出到图片文件的Excelmacros Sub Tester() Worksheets("deletedFields").Range("A8:J36").CopyPicture xlScreen, xlBitmap Application.DisplayAlerts = False Set oCht = Charts.Add With oCht .Paste .Export Filename:="C:\temp\SavedRange.jpg", Filtername:="JPG" .Delete End With End Sub 任何帮助自动化这将不胜感激！

使用Excel VBA生成代码128条形码: 我试图通过使用VBA获取Excel中生成的Code 128条形码。我发现了一个VBA类，有人通过VBForums（后来修改为与Excel VBA一起工作）共享，但我有问题得到它的工作。如果我在使用Excelmacros的电子表格中使用下面的代码，当在任何input上尝试使用Code128_Str（）函数时，我会得到#VALUE错误。我缺乏正确debugging代码的必要技能。如果这个脚本可以纠正的话，我认为这对于许多人来说是非常有用的。有问题的脚本使用免费字体生成相关的Code 128输出条形码。参考： http : //www.barcodeman.com/info/c128.php3 （字体下载） http://www.vbforums.com/printthread.php?t=514742&pp=40&page=1 （原始论坛主题与代码） ' *** Made By Michael Ciurescu (CVMichael) *** 'Modified by Paulo Cunha (pcunha) to work with char128.ttf on word or excel on 16/05/2011 'the font at in http://grandzebu.net/index.php?page=/informatique/codbar-en/code128.htm ' References: ' http://www.barcodeman.com/info/c128.php3 Private Enum eCode128Type eCode128_CodeSetA = 1 eCode128_CodeSetB […]

复制范围并粘贴另一个工作表特定范围内的值: 我试图让一个Excelmacros工作，但我有一个问题，从含有公式的单元格复制值。到目前为止，这是我所拥有的，并且与非公式单元格一起工作良好。 Sub Get_Data() Dim lastrow As Long lastrow = Sheets("DB").Range("A65536").End(xlUp).Row + 1 Range("B3:B65536").Copy Destination:=Sheets("DB").Range("B" & lastrow) Range("C3:C65536").Copy Destination:=Sheets("DB").Range("A" & lastrow) Range("D3:D65536").Copy Destination:=Sheets("DB").Range("C" & lastrow) Range("E3:E65536").Copy Destination:=Sheets("DB").Range("P" & lastrow) Range("F3:F65536").Copy Destination:=Sheets("DB").Range("D" & lastrow) Range("AH3:AH65536").Copy Destination:=Sheets("DB").Range("E" & lastrow) Range("AIH3:AI65536").Copy Destination:=Sheets("DB").Range("G" & lastrow) Range("AJ3:AJ65536").Copy Destination:=Sheets("DB").Range("F" & lastrow) Range("J3:J65536").Copy Destination:=Sheets("DB").Range("H" & lastrow) Range("P3:P65550").Copy Destination:=Sheets("DB").Range("I" & lastrow) Range("AF3:AF65536").Copy Destination:=Sheets("DB").Range("J" […]

如果有任何链接可以免费为C＃的Excel“帮手”类库？: 我正在寻找任何可用的免费Excel“助手”类为.NET编写（不必是C＃）。我想评估别人认为是有用的和generics静态（和非静态）辅助方法。可以针对VSTO或定期的Office自动化，虽然这可能无关紧要。我想我也应该指出，这个问题不是要求“有什么好的select（或自由select）使用Excel对象模型自动化。我不是真的想链接到SS齿轮等，虽然他们都是伟大的产品这不是问题的目的。如果我在前面的段落中不够清楚：我不想要这样的答案 – 使用这个免费的（或不是免费的）第三方组件，而不是Excel对象模型代码。所以基本上我所要求的是用户开发的C＃代码库，其中包含VSTO，Office或Excel帮助函数，如用于处理菜单，色带，范围，工作簿，文档，xml的静态方法（例如提到的宅男）。。