程序员经验分享-hwhale

使用vba检查网络连接

2023-12-04

有没有办法在vba中检查网络连接？

我正在使用这个命令：

If Dir("O:\") = "" Then
    MsgBox "you have network connection"
Else
    MsgBox "No Connection"
End If

但它不起作用，我收到运行时错误


除了翻转 if 和 else 部分之外，你所做的几乎是正确的，

即当Dir("O:\") = "" = 您尚未连接

当它返回一些东西时就意味着你们已经建立了联系。

The Dir函数用于返回指定目录中的第一个文件名和属性列表。

Sub Test_Connection()

 If (Len(Dir("O:\"))) Then
  MsgBox "Connected"
 Else
  MsgBox "No Connection"
 End If

End Sub
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

vba

msaccess

使用vba检查网络连接 的相关文章

  • VBA getelementsbytagname问题

    早上好 我正在尝试提取 HTML 表信息并在 Excel 电子表格上整理结果 我正在使用getelementsbytagname table 0 函数来提取 HTML 表格信息 效果很好 有人可以告诉我这有什么意义吗 0 桌子之后 另外 我

  • 如何使用 Excel VBA 根据货币标准格式化列中的数字？

    我想格式化一列的所有单元格 数据是一个数字 我想从左边添加一个小数 之后只保留两位数 然后根据货币标准对其进行格式化 例如 Data Output 10000 100 00 112233 1 122 33 123456789 1 234 5

  • Windows 更新后 Excel 2010 ActiveX 控件不再工作 [重复]

    这个问题在这里已经有答案了 因此 在工作中 我在安装了最新的 Windows 7 更新 包括 Microsoft Office 2010 更新 后遇到了这个问题 更新的日期是今天 2014 年 12 月 12 日 更新后 我在 Excel

  • Excel VBA 更改命令按钮的颜色

    我在更改颜色时遇到问题CommandButton 在电子表格中 我添加设计按钮作为表单或 ActiveX 然后在 VBA 中我尝试 Activesheet shapes CommandButton1 visible false 这个效果很好

  • 如何从 500 个 .xls Excel 文件中的单元格中获取数据？

    我想问你如何从许多Excel中的几个确定的 并且总是相同的 单元格中获取数据 xls文件 即我有一个清单 xls文件位于一个文件夹中 每个文件内部都有相同的表 但具有不同的值 我想从以下位置获取数据A1 C2 E3从文件夹中的所有文件中提取

  • 不使用 DAO 压缩 Microsoft Access 数据库

    我用CDatabase类开一个ACCDB访问数据库 司机是 T Microsoft Access Driver mdb accdb 我可以打开并使用数据库 已经这样做很多年了 if DatabaseExist m strMDBPath AJ

  • 使用@@Identity

    我想知道如何从另一个数据库的表中获取最近生成的自动编号值 目前我正在这样做 Do Until rsA EOF Inserts new row here works Set rs New ADODB Recordset rs Open SEL

  • Excel VBA 中.Delete 和.Clear 的区别？

    有什么区别Worksheets 1 Cells Delete and Worksheets 1 Cells Clear 我问这个是因为我一直用 Clear清除我的工作表内容 但在我之前的帖子中我发现Worksheets 1 Cells De

  • 使用 If 语句执行 Do Until 直到达到特定值

    我正在处理一份大数据表 我需要代码从特定单元格中减去 直到该值大于某个数字 如果这个数字没有达到 我希望它变成0 例如如果A3 A2 gt Q5 then E3 A3 A2 if lt Q5 do A3 A1 如果这不起作用E2 0 我需要

  • 从磁盘加载多维 VBA 数组

    我正在尝试保存多维 VBA 数组 然后将其加载到磁盘或从磁盘加载 根据MSDN 网站 http msdn microsoft com en us library office gg278468 28v office 14 29 aspx 维

  • 如何使用 SQL 查询在 Access 中的字段上设置验证规则？

    我正在使用 MS Access 2016 Office 365 目前遇到问题 下面是一个演示此问题的示例 这里我创建了一个表 名为节点家庭链接 由两个字段组成 NodeID 和 FamilyID 如下所示 现在 NodeID 是从另一个表

  • MS Access 表单按钮，允许用户浏览/选择文件，然后将文件导入到表中

    在我的数据库中 我可以使用以下命令创建命令按钮导入文件 DoCmd TransferText acImportDelim 导入的原始数据 导入规范 导入的原始数据 D Users Denise Griffith Documents Grif

  • 运行代码（而不是查询）时如何在状态栏上显示进度

    我已经发布了有关在 MS Access 2010 中运行查询时更新状态栏的问题 请参阅在 MS Access 中运行一系列查询时如何在状态栏上显示进度 https stackoverflow com questions 27765376 h

  • excel 2010刷新BackgroundQuery中运行时错误1004

    我正在尝试用 vba 编写一个脚本 用于将多个文本文件导入 Excel 一张纸 然后将它们绘制在一张图表上 我面临一个问题刷新后台查询命令并出现 1004 运行时错误 我怎样才能解决它 谢谢 埃亚勒 这是我的代码 Sub fring1 Di

  • 在 MS Access 中禁用 F11 键以防止打开导航窗格

    I have an MS Access database The Shift key has previously been disabled but when the user presses F11 she he can see the

  • sql查询将两列与一列连接起来

    我在 MS Access 2010 中有 2 个表 如下所示 USERS u id u name LOAN l id l from ref users u id l to ref users u id l amount Users u id

  • VBA 中 AND 函数如何工作？

    如果这是一个愚蠢的问题 我很抱歉 但是 Excel VBA AND 函数是否检查其中的每个条件然后继续 或者在第一个 FALSE 条件处停止而不检查其他条件 我想知道出于优化目的 但到目前为止在网上没有找到任何相关信息 提前致谢 示例 如果

  • 标志状态的 VBA 替换

    根据文档 Outlook 中的 MailItem FlagStatus 属性是已弃用 https msdn microsoft com en us library microsoft office interop outlook maili

  • 检查未绑定控件是否具有值的正确方法

    简单场景 一个表单和一个文本框 未绑定 Text1 If lt gt Text1 Then MsgBox Not Empty End If 上面的代码有效 表达方式 lt gt Text1如果文本框包含字符 则计算结果为 True 无论文本

  • 在VBA中初始化全局变量

    在 Excel 2003 中 如何声明全局变量并仅在打开工作簿时初始化它们一次 我有一些由几个宏使用的参数 基本上是输入文件的路径 目前 我的代码如下所示 global path1 path2 as string sub initPaths

随机推荐

  • 桌面快捷方式的位置存储在哪里？

    Windows桌面快捷方式的位置存储在哪里 我问的是屏幕职位图标的一部分 而不是实际的图标本身 我知道图标本身存储在各种 DLL EXE 等中 这些位置显然存储在某些非易失性存储中 因为它们在重新启动时仍然存在 我的最终目标是编写一个应用程

  • 阻止滚动函数多次触发？

    所以我有一个脚本 可以从数据库中提取数据并在用户接近页面底部时显示它 问题 当用户到达底部时 脚本应该只返回一个帖子 但实际上 正在发出多个请求 导致所有帖子都被快速从数据库中提取 这反过来又以错误的方式返回它们命令 我的问题是 有没有人知

  • 使用 open() 或 creat() 创建文件的权限位设置比我要求的要少

    我正在编写一个程序来模仿 cp 实用程序 但是 我无法获得文件权限以正常工作 我知道它们存储在结构中stat并存储在st mode场与stat 我的问题是我没有获得组或其他类别的写入权限 即我得到 rwxr xr x作为文件的权限 即使源文

  • Java 8 流的 toArray 和 size 参数

    我想知道stream toArray x gt new Integer x 如何知道数组的大小 我写了一个片段 其中创建了一个大小为 4 的整数列表并过滤了值 它创建了一个过滤流长度的数组 我在流上看不到任何方法来获取流的大小 List

  • 使用 Aforge.Net 将灰度图像转换为黑白图像

    我对 Aforge Net 很陌生 我正在寻找一种将灰度图像转换为黑白图像的方法 我真的找不到任何支持吗 我设法通过应用灰度滤镜将普通图像转换为灰度图像 但我找不到任何有关黑白转换的信息 有人可以帮我一下吗 使用阈值类别将图像转换为黑白图像

  • Java applet 在 Web 上的可用性

    对于我们大学的电子学习项目 我们使用 Java 小程序在 Ilias 学习单元内显示一些交互式内容 例如一些交互式函数绘图或一些简单的问答系统或其他交互式元素以及这些元素的任意组合 我们决定使用 Java 因为我们想要一个开放的解决方案 当

  • Git：使一个分支与另一个分支完全相同

    我对 Git 比较陌生 而且仍然不太适应 现在 我正在寻找可以使当前分支看起来像另一个分支的命令 选项 魔法 也就是说 合并它们 但当出现冲突时 始终选择要合并到当前分支中的差异 我的情况是这样的 我在 master 分支上有一个稳定的应用

  • d3js 动态 csv 从下拉列表切换

    我是 d3js 的新手 我在这里成功使用了示例 https gist github com d3noob 4414436 这非常好 因为它可以远程工作 CSV 存储在服务器端 现在 我想更进一步 添加从列表中选择源 CSV 并重新绘制图表的

  • # 和 ## 运算符在 C 中做什么？ [复制]

    这个问题在这里已经有答案了 类似 NAME 或 NAME 它们在C中是什么意思 我在关于宏的 GCC 文档中看到了它们 运算符 连接两个参数 它们之间不留空格 define printe a b a b printe c out lt lt

  • 动态导入 JavaScript

    请问将 JavaScript js 文件动态导入父 JavaScript 代码的正确方法是什么 我正在使用以下代码 但它似乎不正确 function loadjscssfile filename filetype if filename i

  • 类型错误：“图像”对象不可使用 PIL 进行下标

    我正在尝试在 google colab 上开发一个网络应用程序 我想在这个 Web 应用程序中使用我之前训练过的模型制作一个图像分类器 当我在 Web 应用程序中从浏览器中选择要分类的图像时 出现以下错误 TypeError Image o

  • 从 NSMutable 字典中分离键和对象，并使用 sqlite 的插入命令中的值

    大家好 我正在 iPhone 中开发一个 sqlite 应用程序 因为我是这个应用程序的新手 所以我不知道如何在 sqlite 的插入语句命令中使用 NSMutableDictionary 中的键和对象 例如 我想要以下格式的插入语句 插入

  • 直接在javascript函数中调用C#方法

    如何在 javascript 函数中直接调用 C 方法 例如page load页面后面代码的方法 请帮我 要在客户端事件上调用服务器端方法 您需要执行以下操作 1 创建服务器端方法 void DoSomething 2 实施System W

  • 如何从 Perl 脚本运行“source”命令（Linux）？

    我在尝试着source来自 Perl 脚本 script pl 的脚本 system source some generic script 请注意 这个通用脚本可以是 shell python 或任何其他脚本 另外 我无法将这个通用脚本中存

  • ElasticSearch 5.x 上下文建议器 NEST .Net

    我正在尝试使用 ElasticSearch 5 1 2 上的 Nest 5 0 创建一个带有上下文建议器的索引 目前 我可以创建映射 elasticClient MapAsync

  • 在 Java 8 中查找列表的最大值、最小值、总和和平均值

    如何在Java 8中找到以下列表中数字的最大值 最小值 总和和平均值 List

  • 本地主机上的 Angular2 CORS 问题[重复]

    这个问题在这里已经有答案了 Failed to load URL Response to preflight request doesn t pass access control check No Access Control Allow

  • 当许多客户端连接时，我的 socket.io 服务器开始随机断开客户端连接（由于“ping 超时”原因）

    我正在构建一个网站 我的客户端通过网络套接字与服务器进行通信 我在后端使用 Nodejs 因此使用著名的 socket io 库进行 Web 套接字通信 问题 1 到 40 个客户端一切正常 之后服务器开始随机断开客户端连接 一开始我认为这

  • 运行时添加到DAG的任务无法调度

    我的想法是有一个任务foo它生成输入列表 用户 报告 日志文件等 并为输入列表中的每个元素启动一个任务 目标是利用 Airflow 的重试和其他逻辑 而不是重新实现它 So ideally my DAG should look someth

  • 使用vba检查网络连接

    有没有办法在vba中检查网络连接 我正在使用这个命令 If Dir O Then MsgBox you have network connection Else MsgBox No Connection End If 但它不起作用 我收到运

热门标签