VBA中 各种数据类型的使用(自定义数据类型Type,数组,数据字典)、读写文件

VBA中 各种数据类型的使用(自定义数据类型Type,数组,数据字典)、读写文件_sun0322的博客-CSDN博客_vba数据字典赋值与读取

目录

1.各种数据类型

2.VBA定义公共数组(全局都可以使用)

3.读写文件

SJIS 写入

UTF8 写入

读取 SJIS

读取 UTF-8

4.异常处理

5.忽略错误

6.其他常用1

7.其他常用2:读取(多个)Excel文件

8. ★★★ 各种常用操作总结 ★★★

9.事件相关处理 (保存,离开单元格等操作时,触发处理)

10.定义(调用)有返回值的函数

11.使用VBA操作IE浏览器

12.Variant   变量类型

13.调用bat (使用cmd,直接运行程序)

14.调用Jar,并获取返回值

核心代码

具体内容

15.循环(For、While)

For

While

16.Excel-VBA:列号与字母(列名)的相互转换 

17.使用VBA给单元格设置公式 :( FormulaR1C1 )

18.打开另外一个Excel,并操作其中的内容 (有坑)

19.VBA 后台打开Excel (坑)

20.Excel  VBA 读取 XML  (各种参照资料) 

21.Excel  VBA 读取 XML  (简单应用) 

读取对象XML

读取XML用的VBA代码

读取XML节点的结果 

23.动态二维数组定义

24.行列扩展操作(右拉,下拉)

25.数字列,字母列转化

26.代码补全操作

27.全角 转换 成半角  (【StrConv】 函数)

28.空行グループ化   ( 空行  group )

29.把字符串中的某一个字符,由小写转换为大写

30.XXX

31.XXX

■其他

1.快捷键操作

2.代码补全操作


====

1.各种数据类型


'* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
'*
'*  自定义学生对象
'*  做成时间:2020/01/20
'*  做成者: sun
'*  跟新日:
'*  更新者:
'*
'* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Type STUDENT_INFO
    '学号
    stuNo As String
    stuName
<think>好的,我现在需要帮助用户解决同时使用内网外网的问题。用户的情况是笔记本电脑通过网线连接内网同时使用Wi-Fi连接外网。当前的问题是,当Wi-Fi开启时,只能使用外网,无法访问内网系统,必须关闭Wi-Fi才能使用内网。用户希望同时访问内外网。 首先,我需要回忆一下网络路由的基本知识。当一台计算机有多个网络接口(比如有线网卡和无线网卡),每个接口可能有不同的网关。默认情况下,操作系统会根据路由表的优先级来选择使用哪个网关。通常,系统会有一个默认网关,而其他网络的路由需要手动添加。 用户的内网网关是192.168.18.254,而外网的网关是192.168.1.1。可能的情况是,当Wi-Fi连接时,外网的网关被设为默认网关,导致所有流量都走外网,而内网的路由没有被正确配置,因此内网请求可能被错误地路由到外网网关,导致无法访问。 解决方法应该是添加一条静态路由,告诉系统访问内网网段(192.168.18.0/24)时通过内网网关192.168.18.254,而其他流量仍然使用外网的默认网关。这样,当访问内网系统时,数据包会通过有线网卡,而其他互联网流量则通过Wi-Fi。 接下来,我需要考虑用户可能已经尝试过添加路由,但可能存在问题,比如路由没有正确添加或者没有持久化。另外,子网掩码是否正确也是一个关键点。用户提到的内网地址是192.168.18.33,子网掩码可能是255.255.255.0,即/24,但需要确认是否正确。 此外,路由的优先级问题也可能存在。如果两个接口都有默认网关,系统可能会根据跃点数(metric)来决定优先使用哪个接口。调整跃点数,让外网接口(Wi-Fi)的跃点数更低,可以确保默认流量走外网,而内网流量走有线。 另外,防火墙设置也可能阻止了内网通信,需要检查是否被防火墙拦截。还有可能用户的路由命令有误,比如没有使用正确的子网掩码或网关地址。 回顾用户提供的步骤,之前的回答已经涵盖了添加路由、检查网关可达性、子网掩码匹配、防火墙设置、接口跃点数调整等方法。用户现在的情况是已经手动设置了内网网关,但可能因为默认网关被外网占据,导致内网路由失效。 因此,正确的步骤应该是:删除内网接口的默认网关,仅保留外网的默认网关,然后为内网网段添加静态路由。这样,系统在访问内网时会使用指定的路由,而其他所有流量则走外网网关。 需要确保用户的内网接口(以太网3)没有设置默认网关,否则当两个接口都有默认网关时,系统可能会出现不可预测的路由行为。用户之前可能在内网接口配置中手动设置了网关,这会导致路由冲突。 总结步骤应该是: 1. 移除内网接口的默认网关设置。 2. 添加永久静态路由指向内网网段,使用内网网关。 3. 调整接口跃点数,确保外网接口优先级更高。 4. 测试路由是否生效,并检查防火墙设置。 同时需要指导用户如何通过命令行添加路由,并确保路由持久化(使用-p参数)。此外,检查路由表确认路由是否正确添加,以及通过ping和tracert测试连通性。 可能的问题点包括:用户是否正确移除了内网接口的默认网关,是否正确输入了路由命令,子网掩码是否正确,以及是否有其他冲突的路由规则。 最后,需要以清晰的中文步骤解释给用户,确保用户能够逐步操作,并在每个步骤后验证结果,以便及时发现问题。</think>### 解决方案:双网卡同时访问内外网 通过**路由优先级控制**和**静态路由配置**可实现外网并行访问,以下是详细操作步骤: --- #### 步骤1:移除内网接口的默认网关(关键操作) 1. 打开 **控制面板 → 网络和共享中心 → 更改适配器设置** 2. 右键 **以太网3**(内网网卡) → 属性 → **Internet协议版本4 (TCP/IPv4)** → 高级 3. 在 **默认网关** 栏位中 **删除所有条目**(保留外网WiFi的默认网关) > 这一步确保系统默认流量只通过WiFi外网出口 --- #### 步骤2:添加永久静态路由(管理员权限运行CMD) ```cmd route add -p 192.168.18.0 mask 255.255.255.0 192.168.18.254 ``` **命令解释**: - `-p` 参数:永久路由(重启后保留) - `192.168.18.0/24`:需要访问的内网网段 - `192.168.18.254`:内网专用网关 --- #### 步骤3:验证路由配置 执行命令查看路由表: ```cmd route print -4 ``` 确认输出中包含: ``` IPv4 路由表 =========================================================================== 永久路由: 网络地址 网络掩码 网关地址 跃点数 192.168.18.0 255.255.255.0 192.168.18.254 1 ``` --- #### 步骤4:调整接口跃点数(强制外网优先) 1. 打开 **网络连接** 设置 2. **WiFi连接** → 属性 → IPv4 → 高级 → 取消"自动跃点" → 手动设置为 **25** 3. **以太网3** → 属性 → IPv4 → 高级 → 手动设置为 **50** > 数值越小优先级越高,确保外网流量默认走WiFi --- #### 步骤5:最终连通性测试 1. 保持WiFi网线同时连接 2. 测试外网访问: ```cmd ping 8.8.8.8 ``` 3. 测试内网访问: ```cmd ping 192.168.18.254 ``` 4. 测试跨网段访问(例如访问内网服务器): ```cmd tracert -d 192.168.18.100 ``` --- ### 原理示意图 ``` [笔记本电脑] ├─ WiFi (外网) → 默认网关 192.168.1.1 (跃点25) → 互联网 └─ 以太网3 (内网) → 专用路由 192.168.18.0/24 → 网关192.168.18.254 (跃点50) ``` --- ### 常见问题处理 1. **路由添加失败**: - 检查是否以管理员身份运行CMD - 确认内网网关可达:`ping 192.168.18.254` 2. **访问内网依然失败**: ```cmd route delete 192.168.18.0 route add -p 192.168.18.0 mask 255.255.255.0 192.168.18.254 if [以太网3的接口编号] ``` (接口编号通过`route print`查看) 3. **网页访问异常**: ```cmd netsh winsock reset netsh int ip reset ipconfig /flushdns ``` 重启后生效 --- 通过以上配置,您可保持WiFi连接互联网的同时,通过有线网卡访问内网系统。若仍有异常,请提供具体错误提示或tracert截图,我将协助进一步诊断。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值