假设我有一个excel传播表,如下所示:
col1 col2 ------------ dog1 dog dog2 dog dog3 dog dog4 dog cat1 cat cat2 cat cat3 cat
我想根据"狗"或"猫"返回一系列细胞(dog1,dog2,dog3,dog4)或(cat1,cat2,cat3)
我知道我可以循环检查一个接一个,但是在VBA中是否还有其他方法,所以我可以一次性"过滤"结果?
也许Range.Find(XXX)可以提供帮助,但我只看到一个单元格而不是一系列单元格的示例.
请指教
问候
我编写了一个VBA应用程序,在Outlook中打开一个文件夹,然后遍历消息.我需要将消息体(通过一些调整)写入单个平面文件.我的代码如下......
Private Sub btnGo_Click()
Dim objOutlook As New Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objInbox As MAPIFolder
Dim objMail As mailItem
Dim count As Integer
Set objNameSpace = objOutlook.GetNamespace("MAPI")
Set objInbox = objNameSpace.GetDefaultFolder(olFolderInbox)
count = 0
For Each objMail In objInbox.Items
lblStatus.Caption = "Count: " + CStr(count)
ProcessMailItem (objMail)
count = count + 1
Next objMail
End If
End Sub
Run Code Online (Sandbox Code Playgroud)
有问题的部分是"ProcessMailItem".由于我并不过分关注此阶段的性能,因此对于此示例而言,非常无效的"打开,追加,关闭"文件方法很好.
我知道我可以花点时间用谷歌查找答案,但我先在这里查了一下,但没有好的答案.作为Stackoverflow的粉丝,我希望将其放在这里将有助于未来的开发人员寻找答案.谢谢你的耐心.
我正在寻找一种从Word文件中提取/抓取数据到数据库的方法.我们的公司程序与MS Word文件中记录的客户会议记录,主要是由于历史和惯性.
我希望能够从这些会议纪要行动项目拉进一个数据库,以便我们可以从一个Web界面访问它们,把它们变成任务,因为他们完成了更新.
这是最好的方法:
最后一个是我的吸引力,因为网络界面正在使用Django建成的,但我从来没有使用win32com或蟒蛇试图脚本字.
编辑:我已经开始提取与VBA的文本,因为它使得它更容易一些处理Word对象模型.我遇到了一个问题 - 所有文本都在表格中,当我将字符串拉出我想要的CELLS时,我会在每个字符串的末尾得到一个奇怪的小方框字符.我的代码看起来像:
sFile = "D:\temp\output.txt"
fnum = FreeFile
Open sFile For Output As #fnum
num_rows = Application.ActiveDocument.Tables(2).Rows.Count
For n = 1 To num_rows
Descr = Application.ActiveDocument.Tables(2).Cell(n, 2).Range.Text
Assign = Application.ActiveDocument.Tables(2).Cell(n, 3).Range.Text
Target = Application.ActiveDocument.Tables(2).Cell(n, 4).Range.Text
If Target = "" Then
ExportText = ""
Else
ExportText = Descr & Chr(44) & Assign & Chr(44) & _
Target & Chr(13) & Chr(10)
Print #fnum, ExportText
End If
Next n
Close #fnum
Run Code Online (Sandbox Code Playgroud)
小控制字符框有什么用?是什么类型的字符代码来自Word?
好的,互联网上绝对没有好文章,我可以找到解释或有关于如何使用VBA创建数据透视表的代码示例.我需要这个,因为我需要透视图来显示不同的结果,具体取决于表单中的用户选择.Excel中有一些但Access的语法不同.我知道这是一个蹩脚的问题,但如果有人有一个如何在VBA中创建数据透视表的例子,我真的很感激帮助.
如何以编程方式将 ExcelFind and Replace对话框参数重置为默认值(“查找内容”、“替换为”、“范围内”、“搜索”、“查找范围”、“匹配案例”、“匹配整个单元格内容”)?
我正在使用Application.FindFormat.Clear和Application.ReplaceFormat.Clear重置查找和替换单元格格式。
有趣的是,使用 后expression.Replace(FindWhat, ReplaceWhat, After, MatchCase, WholeWords),FindWhat字符串显示在Find and Replace对话框中,但不显示ReplaceWhat参数。
我有一个纯文本文件,如下所示:
"some
text
containing
line
breaks"
Run Code Online (Sandbox Code Playgroud)
我正试图excel 2004 (Mac, v.11.5)正确地打开这个文件.我希望看到只有一个包含上述所有内容的单元格(A1)(没有引号)......
但唉,我无法实现,因为Excel似乎坚持使用CR作为行分隔符,即使我将文本限定符设置为双引号.我有点希望Excel能理解这些换行符是值的一部分 - 它们嵌入双引号中,这应该将它们限定为值的一部分.所以我的Excel工作表有5行,这不是我想要的.
我也试过这个Applescript无济于事:
tell application "Microsoft Excel"
activate
open text file filename ¬
"Users:maximiliantyrtania:Desktop:linebreaks" data type delimited ¬
text qualifier text qualifier double quote ¬
field info {{1, text format}} ¬
origin Macintosh with tab
end tell
Run Code Online (Sandbox Code Playgroud)
如果我可以告诉Excel使用除CR(或LF)以外的行分隔符,那么,我将是一个快乐的露营者,但excel似乎只允许更改字段分隔符,而不是行分隔符.
有什么指针吗?
谢谢,
Max Excel是开放的
我有几个具有确切表结构的mdb文件.我必须将主表的主键从autonumber更改为所有这些中的数字,这意味着我必须:
有没有办法从一个文件导出关系并将它们导入到所有其他文件?
我确信这可以通过一些宏/ vb代码来完成.有没有人有我可以使用的例子?
谢谢.
我正在尝试查找或开发一些VBA来动态生成表单字段(标签和文本框).
源数据是隐藏的Excel工作表上的表.
有任何想法吗?
我正在尝试按AND位进行两个十六进制数Excel/Visual Basic.
防爆.53FDBC AND 00FFFF哪个应该屈服00FDBC.
关于如何做到这一点的任何想法?
这是关于抛出异常的在线教程
我正在尝试做这样的事情:
int power(int n, int p){
try
{
return (int)Math.pow(n,p);
}
catch(Exception e)
{
throw new Exception("n and p should be non-negative");
}
}
Run Code Online (Sandbox Code Playgroud)
但我得到了错误
错误:未报告的异常Exception;必须被抓住或宣布被扔出