小编shr*_*810的帖子

如何在不使用循环的情况下返回VBA中的一系列单元格?

假设我有一个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)可以提供帮助,但我只看到一个单元格而不是一系列单元格的示例.

请指教

问候

excel vba range excel-vba

5
推荐指数
1
解决办法
6852
查看次数

使用VBA将电子邮件消息写入Outlook中的平面文件

我编写了一个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的粉丝,我希望将其放在这里将有助于未来的开发人员寻找答案.谢谢你的耐心.

email outlook vba flat-file outlook-vba

5
推荐指数
1
解决办法
9383
查看次数

从MS Word中提取数据

我正在寻找一种从Word文件中提取/抓取数据到数据库的方法.我们的公司程序与MS Word文件中记录的客户会议记录,主要是由于历史和惯性.

我希望能够从这些会议纪要行动项目拉进一个数据库,以便我们可以从一个Web界面访问它们,把它们变成任务,因为他们完成了更新.

这是最好的方法:

  1. 从Word里面的VBA宏创建CSV然后上传到DB?
  2. VBA宏在Word中使用连接数据库(一个人如何从VBA连接到MySQL?)
  3. 通过win32com的Python脚本然后上传到DB?

最后一个是我的吸引力,因为网络界面正在使用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?

python vba ms-word pywin32 word-vba

5
推荐指数
1
解决办法
6729
查看次数

使用Access 2007 VBA创建数据透视表

好的,互联网上绝对没有好文章,我可以找到解释或有关于如何使用VBA创建数据透视表的代码示例.我需要这个,因为我需要透视图来显示不同的结果,具体取决于表单中的用户选择.Excel中有一些但Access的语法不同.我知道这是一个蹩脚的问题,但如果有人有一个如何在VBA中创建数据透视表的例子,我真的很感激帮助.

charts ms-access vba pivot access-vba

5
推荐指数
1
解决办法
1万
查看次数

重置 Excel“查找和替换”对话框参数

如何以编程方式将 ExcelFind and Replace对话框参数重置为默认值(“查找内容”、“替换为”、“范围内”、“搜索”、“查找范围”、“匹配案例”、“匹配整个单元格内容”)?

我正在使用Application.FindFormat.ClearApplication.ReplaceFormat.Clear重置查找和替换单元格格式。

有趣的是,使用 后expression.Replace(FindWhat, ReplaceWhat, After, MatchCase, WholeWords)FindWhat字符串显示在Find and Replace对话框中,但不显示ReplaceWhat参数。

excel vba

4
推荐指数
2
解决办法
2万
查看次数

将包含换行符的文本文件导入excel

我有一个纯文本文件,如下所示:

"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是开放的

excel vba

4
推荐指数
1
解决办法
2万
查看次数

在MS Access中导入/导出关系

我有几个具有确切表结构的mdb文件.我必须将主表的主键从autonumber更改为所有这些中的数字,这意味着我必须:

  1. 删除主表所具有的所有关系
  2. 更改主表
  3. 再次创建关系,...对于所有表.

有没有办法从一个文件导出关系并将它们导入到所有其他文件?

我确信这可以通过一些宏/ vb代码来完成.有没有人有我可以使用的例子?

谢谢.

ms-access vba access-vba table-relationships

4
推荐指数
1
解决办法
1万
查看次数

使用VBA在Excel中动态生成表单

我正在尝试查找或开发一些VBA来动态生成表单字段(标签和文本框).

源数据是隐藏的Excel工作表上的表.

有任何想法吗?

excel vba excel-vba

4
推荐指数
1
解决办法
1万
查看次数

Excel和/或Visual Basic中的十六进制AND运算

我正在尝试按AND位进行两个十六进制数Excel/Visual Basic.

防爆.53FDBC AND 00FFFF哪个应该屈服00FDBC.

关于如何做到这一点的任何想法?

excel hex vba excel-vba

4
推荐指数
1
解决办法
4390
查看次数

Java 中抛出一般异常

这是关于抛出异常的在线教程

我正在尝试做这样的事情:

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;必须被抓住或宣布被扔出

java error-handling

4
推荐指数
1
解决办法
3378
查看次数