如何从Excel VBA可靠地写入文本文件？
我正在尝试使用Excel VBA写入文本文件。我正在做以下几件事： MyFile1 =“C：\outputFromExcel1.txt” fnum1 = FreeFile（） 打开MyFile1输出为fnum1 然后写如下： 打印＃fnum1，文本 上面的所有变量都被声明为 Dim 。我正在为这些文件写上数百条线，很少有线被截断 - 即两端正在
..
Office
如何在Excel中获取范围的大小
使用VBA，是否可以以像素或单位来获得给定范围的大小？ （我不在乎哪个单位，因为我只使用它与其他测量与相同的单位相关）。 谢谢。 解决方案 范围的总体维度位于宽度和高度属性。 Dim r As Range 设置r = ActiveSheet.Range（“A4：H12 “） Debug.Print r.Width Debug.Print r.Height
..
如何确定Excel文件的字符编码？
可能重复： Excel到CSV与UTF8编码 场景：我有一个包含大量全球客户数据的excel文件。我不知道创建文件时使用了什么编码。 问题：如何确定excel文件中使用的字符编码，以便正确导入另一件软件？ 解决方案 对于Excel 2010，应该是UTF-8。 MS说明： http://msdn.microsoft.com/ en-us / library / bb
..
关闭一个用户表单卸载我不工作
如果用户点击了提交按钮并执行了操作，我需要使用VBA关闭Excel用户窗体。 如何从本身关闭Userform ？ 我已经尝试过，但是它返回了361错误。 卸载我 解决方案 根据顶级答案，在按钮控件后面的代码中使用以下代码。 Private Sub btnClose_Click（） 卸载Me End Sub 这样做，它不会尝试卸载控件，
..
如何查看excel文件的XML格式
嗨，有人知道如何查看Excel *。xlsx 文件的XML格式？谢谢 解决方案 XLSX文件只是ZIP文件，所以使用你最喜欢的ZIP工具解压缩它们）：
..
从表中清除过滤器
代码应该首先删除过滤器。 ，然后运行其余的代码。 我尝试过“自动过滤器”命令，但是表的范围上的普通过滤器选项不可见，再次手动创建过滤器选项（对我而言并不重要，但其他人使用此文件）。 有没有办法清除过滤器，而不需要删除过滤器表格？ 解决方案 对于表格，您只需使用 ShowAllData Autofilter 对象： activesheet.listobjects（1） .
..
自动打开Excel文件/运行脚本/然后使用VBA脚本保存进程
我正在通过在一个文件夹中导入和追加数百个Excel文档来在Access中构建一个数据库。每个导入的excel电子表格必须基本一致，如果要正确附加到Access中的最后一个excel电子表格。此外，单元格中的空格会导致访问中的问题... 由于有数百个要添加到Access的excel文件，我希望使用VBA自动化进程...所以这里是我喜欢完成： 1st）宏首先扫描包含我想导入的所有Excel电子
..
如何用递增的数字保存excel文件？
当前代码： Dim filepath As String Dim filename As String Dim filepatharch As String Dim filedate As String Dim filelist As String '抓取FROM列表号 表格（“TD文件”）。选择 范围（“G4”）。选择 filelist = ActiveCell。
..
构建宏将数据从网站下载到Excel中
我想使用VBA在Excel中构建一个宏来从以下网站下载历史数据： http://quickstats.nass.usda.gov/results/320F1D82-1064-30F1-809E-F77E509EC508 我照常创建一个命令按钮。然后我认为这可能能够使用宏记录器轻松解决。然而，当我选择数据 - >获取外部数据 - >从Web，然后键入上述地址，我无法选择整个表作为数据。
..
如何使用vba在Excel中的ENTER键上调用函数
Google应该为我提供充足的例子，但是他们似乎都没有工作 我想要什么：每次用户按下，然后释放，ENTER键，为我的程序做一些事情（即创建一个MsgBox或调用函数Foo）。我更喜欢这样一种MWE的形式。 我所做的：我尝试过没有一个例子是功能的。他们编译，但不做任何事情。我还确保保存在宏兼容的Excel格式。 我使用的是什么：我正在使用Excel 2016，64位Office 3
..
EXCEL VBA，手册Outlook电子邮件发件人，类模块问题
我仍在处理我在中描述的问题关于这个话题的第一个问题。为了简短刷新，它是一个excel文件，其中包含电子邮件模板和附件的列表，对于每个列表单元，我添加了打开发给单元模板的按钮进行一些更改，然后附加文件并显示邮件用户。用户可以根据需要修改邮件，然后发送或不发送邮件。我已经尝试过几种方法，如下所述。 不幸的是，我现在处于类模块的问题上，即将描述此处。我已经创建了一个类模块，例如“EmailWatche
..
将多列转换为一个大列（Excel 2010）
我想将15,096个文本列（每个单元格一个字）转换为一个大列，包括原始列中的每个单元格。我的原始列大小有所不同（即一列可能有4个单元格/行，而另一列可能有100个单元格/行）。 我没有VBA的经验，但是已经记录了一个宏手动做一些这个宏，它是永远的。请帮助我可以设置的东西，去喝咖啡，回来看看完成的工作。 （注意：有些列有1个字/行...这使得我的宏在每次遇到其中一个时抛出错误）。 谢谢！
..
将具有数据列的行转换为Excel中具有多行的列
我有数据行： - 标签尺寸等级等级位置 A001 123 12 A X1 A002 789 13 B X3 A003 456 15 C X5 我需要转换进入： - A001 123 SIZE 12 A001 123 GRADE A A001 123位置X1 A002 789 SIZE 13 A002 789 GRADE B A00
..
VBA：在“选择”是图表的工作表中获取选定的范围
我有一份工作表，里面有一张图表。如果我选择一系列单元格，然后选择图表，然后在VBE的直接窗口中 ？ TypeName（Selection） ChartArea 所以我不能使用 / code>来获取选定的范围，即使它在那里（按Esc返回到选定的单元格范围）。 如何在VBA中检索 Range ？ PS：我怀疑是Q& A适用于其他 Shape s。
..
在Access表中添加一行时，生成一个序列号（每组）
我有一个MS Access（.accdb）表，其数据类似如下： 位置号码 -------- ------ ABC 1 DEF 1 DEF 2 GHI 1 ABC 2 ABC 3 每当我将数据附加到表格中，我想要的数字是独特的位置。 我正在通过MS Excel VBA访问这个表 - 我想创建一个新的记录（我指定代码中的位置），并创建一个唯一的序列号
..
如何编写SQL查询实现Excel SUMIFS函数
我有这样的表： 日期销售部门商店 02/01/2012 4.09玩具A 03/01/2012 5.90玩具A 02/01/2012 6.64玩具B 03/01/2012 4.71玩具B 02/01/2012 16.72玩具C 03/01/2012 1.37玩具C 02/01/2012 13.22电影A 03/01/2012 18.06电影A 02/01/20
..
Matlab Actxserver：如何在matlab中终止由actxserver打开的进程
我想在MATLAB中打开和关闭一个Excel文件。 我已经尝试下面的代码，但关闭过程失败 actxserver h.WorkBooks.Item（wbkname）.Close; 这是我的这个问题的代码，我如何终止excel文件？ 。退出 .delete 我还尝试通过VBA子模块关闭excel文件，但它给我一个错误消息： fullFi
..
要阅读Excel可以使用Spring批处理吗？
我想知道是否可以使用 Spring Batch ，以便从 中读取Excel文件并保存在数据库中。 备注： Excel文件每2小时内容。 如果不能用Spring Batch，我可以使用什么其他解决方案 解决方案 看看 Excel的弹簧批处理扩展。您可以找到ExcelItemReader和ExcelItemWriter的一些示例。 以下是Excel的spring-batch
..
搜索列A以匹配列C中的数字，如果True返回列B，如果返回错误“0”
我正在尝试以15分钟的增量收集数据，看起来像以5分钟为增量收集的数据，空格为零。我创建了一个具有儒略日期/时间（15分钟增量）的列（A）和一个具有儒略日期/时间（5分钟增量）（C）的列，并且15分钟增量数据在列B中。我创建了一个简单的公式检查列A中的所有列与C列完全匹配，如果为true，则需要返回与列A中的匹配对应的列B，如果为false则返回0。 这是我到目前为止是真正的回报公式。在列B中
..
删除和替换工作表时，如何保留公式对工作表的引用？
我是一个应用程序的作者，在打开Excel工作簿之前，删除并重新创建一些工作表，例如下面的示例中的“Sheet1”。 相同工作簿中的其他工作表（称为Sheet2）可能具有引用替换的工作表的公式，如下所示： = IF 'Sheet1'！A9 =“”，“”，'Sheet1'！A9） 不幸的是上面的公式中的Sheet1在Sheet被替换时被打破，成为 = IF（#R
..