Sub test() '拆分数据 Dim sht As Worksheet Dim i, k, icolumn, irow As Integer Dim sname As String sname = InputBox("请输入待分列表名") icolumn = InputBox("按第几列进行分列") For i = 2 To Sheets(sname).Cells(65536, 1).End(xlUp).Row k = 0 For Each sht In Sheets If sht.Name = Sheets(sname).Cells(i, icolumn) Then ----------这块报错 k = 1 End If Next If k = 0 Then Sheets.Add after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = Sheets(sname).Cells(i, icolumn) End If Next    

异常发生时间： 2021/4/12 17:10:17 导致当前异常的 Exception 实例： System.ComponentModel.Win32Exception (0x80004005): 操作成功完成。 at System.Drawing.Icon.Initialize(Int32 width, Int32 height) at System.Drawing.Icon..ctor(SerializationInfo info, StreamingContext context) 导致异常的应用程序或对象的名称： mscorlib 引发异常的方法： Void _SerializationInvoke(System.IRuntimeMethodInfo, System.Object, System.SignatureStruct ByRef, System.Runtime.Serialization.SerializationInfo, System.Runtime.Serialization.StreamingContext) 异常堆栈信息： at System.RuntimeMethodHandle._SerializationInvoke(IRuntimeMethodInfo method, Object target, SignatureStruct& declaringTypeSig, SerializationInfo info, StreamingContext context) at System.RuntimeMethodHandle.SerializationInvoke(IRuntimeMethodInfo method, Object target, SignatureStruct declaringTypeSig, SerializationInfo info, StreamingContext context) at System.Reflection.RuntimeConstructorInfo.SerializationInvoke(Object target, SerializationInfo info, StreamingContext context) at System.Runtime.Serialization.ObjectManager.CompleteISerializableObject(Object obj, SerializationInfo info, StreamingContext context) at System.Runtime.Serialization.ObjectManager.FixupSpecialObject(ObjectHolder holder) at System.Runtime.Serialization.ObjectManager.DoFixups() at System.Runtime.Serialization.Formatters.Binary.ObjectReader.Deserialize(HeaderHandler handler, __BinaryParser serParser, Boolean fCheck, Boolean isCrossAppDomain, IMethodCallMessage methodCallMessage) at System.Runtime.Serialization.Formatters.Binary.BinaryFormatter.Deserialize(Stream serializationStream, HeaderHandler handler, Boolean fCheck, Boolean isCrossAppDomain, IMethodCallMessage methodCallMessage) at System.Runtime.Serialization.Formatters.Binary.BinaryFormatter.Deserialize(Stream serializationStream, HeaderHandler handler, Boolean fCheck, IMethodCallMessage methodCallMessage) at System.Resources.ResourceReader.DeserializeObject(Int32 typeIndex) at System.Resources.ResourceReader._LoadObjectV2(Int32 pos, ResourceTypeCode& typeCode) at System.Resources.ResourceReader.LoadObjectV2(Int32 pos, ResourceTypeCode& typeCode) at System.Resources.RuntimeResourceSet.GetObject(String key, Boolean ignoreCase, Boolean isString) at System.Resources.ResourceManager.GetObject(String name, CultureInfo culture, Boolean wrapUnmanagedMemStream) at ZomoreControls.Forms.MainForm.InitializeComponent() at ZomoreControls.Forms.MainForm..ctor() at ZomoreTouchPos.Views.AppModal.AddServicePop..ctor() at ZomoreTouchPos.Views.MainAfterForm.defAddService_Click(Object sender, EventArgs e) at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) at System.Windows.Forms.Control.WndProc(Message& m) at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) 异常消息： Exception has been thrown by the target of an invocation. 刚刚遇到了一个异常，部分电脑会出现，追踪到的位置是窗体加载里面加载图标时出现的 InitializeComponent(); ==> this.Icon = ((System.Drawing.Icon)(resources.GetObject("$this.Icon")));   求助大神们解答，这是什么原因导致的，要怎么解决呢？

使用了pcap捕获数据包，但pcap不能对链路层进行操作，该怎样对识别出来的P2P流量进行速率控制呢？

在PowerShell中运行了 Set-ItemProperty -Path 'HKLM:\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU' -Name UseWUServer -Value 0 Restart-Service -Name wuauserv Install-WindowsFeature Net-Framework-Core Set-ItemProperty -Path 'HKLM:\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU' -Name UseWUServer -Value 1 Restart-Service -Name wuauserv 第一三四句报错，然后再启动服务器管理器就提示没有安装.NET4.0.30319，但是我看Framework64文件夹中还是有V.4.0.30319，然后我用CMD启动PowerShell又提示无法解决，这个问题怎么解决，谢谢了

在PowerShell中运行了 Set-ItemProperty -Path 'HKLM:\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU' -Name UseWUServer -Value 0 Restart-Service -Name wuauserv Install-WindowsFeature Net-Framework-Core Set-ItemProperty -Path 'HKLM:\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU' -Name UseWUServer -Value 1 Restart-Service -Name wuauserv 第一三四句报错，然后再启动服务器管理器就提示没有安装.NET4.0.30319，然后用CMD启动PowerShell，提示没有安装.net4.0.30319，然后我安装了.net4.7.2,也没有反应，这个应该怎么办？麻烦大神帮我解决一下

每次打开VS程序后再关闭，然后文件夹想重命名，不行；删除也不行。执行上述操作，都得重启，否则就无法执行。这是为什么？能怎么消除这种（算是个）BUG吧  

C# DllImport 引用 user32.dll/kernel32.dll 等api时，的大小写和后缀问题， 例如[DllImport("User32.dll")]和[DllImport("user32.dll")]，[DllImport("kernel32")]和[DllImport("kernel32.dll")]  它们之间有什么区别？？

有没有开源的库，或者任何方法可以解析Microsoft OneNote文件里面的内容。 不想要打开OneNote 应用程序，就只有.one格式的文件，然后利用c#去得到它里面的内容。 我知道有一个java的库叫做Apache Tika可以做到这一点，但是他是java的。 还有一个收费的API ---- Aspose.Note for .NET ， 但我要做的是开源的项目，不可以用付费的东西 各位大神有什么方法可以解决吗？ 我自己尝试看Tika的源代码 然后用c#写出一个可以解析OneNote的东西，但是我不太写得出来。 谢谢各位大神指导！

工厂想做一个ERP，求思路，该怎么入手

微型小飞机msi afterburner打开就出现BUG，也不提示缺少什么DLL，求高人指点一下

账号密码正确无误，使用了密码和应用密码都试过了。UseDefaultCredentials属性false，true，注释掉都试过了，还是发送失败 代码：  

为什么我的站点内网访问是正常的页面，下图     但是在服务器外面访问就是400错误呢     防火墙也是关闭的

Outlook里有俩个账号（用1和2代替）。1号邮箱是自己用的，2号邮箱是专门发送邮件使用的。怎么才能做到2号邮箱能发送邮件的情况不接收任何邮件，或者2号邮箱能发送邮件的情况下接收到的邮件不被使用者看到。 求帮助，谢谢！

  这是a文件的数据 这是b文件的数据 我想把这两列拼接到一起，就是直接在a文件的基础上的最后面再加上b文件的数据，怎么做？

在不输入 密码的情况下查看系统盘，其他硬盘的文件。不拆电脑

求助 公司IT将数据库转移到了阿里云的polar Db（兼容my sql），现在我用power query 无法链接数据库了，之前做的所有报表都报废了，想请教一下解决办法 一下是链接是报错的截图 

新人求助： Desktop的数据源选择的是文件夹，此文件夹里面共有4个excel文件，分别是1月至4月份，导入到Desktop后显示有4月份的数据。 问题：当我在4月份excel文件添加或删除数据后，再次点击Desktop的“主页”上“刷新”后，Desktop里面就不显示当前月即4月份，是不是设置的问题啊？ 感谢各位的帮助。

需要从标准模板数据内抓取数据到明细表中。 如下场景： 模板： 行1： A 100箱 1000元 行2： B ... 发货仓库、 行19           A                   B              C ... 行20： 自提 40箱 行21： xx街道 60箱 明细表中： A 40箱   400元   自提 A 60箱   600元   xx街道

我刚给scom2012R2 装上了rollup13，发现装错了，要装的是rollup12，然后想把rollup13卸掉，搜了一篇文档，但是看不懂，路径如下： Uninstall information To uninstall an update, run the following command: msiexec /uninstall PatchCodeGuid /package RTMProductCodeGuid https://support.microsoft.com/en-us/topic/update-rollup-13-for-system-center-2012-r2-operations-manager-0743b6e3-e63f-11a4-e688-5009d927507c 不知道该怎么用  

目前已将将无线网换成有线网，不能解决！ 将DNS换成运营商提供的，也没有解决！ 还有什么办法吗

如题，客户端和数据库在同一台机器上，因为有证书且在本地当前用户，所以直接打开SSMS添加Column Encryption Setting = enabled;的连接参数后就可以查看明文了，如何避免这种情况？只能让我的客户端访问数据库？

能否实现内部所有人用自己邮箱发送邮件，通过指定邮箱中转，对外显示发件地址都是这个邮箱。

因为我电脑上本身的office不是正版所以有问题，打算删了再重装正版，但删除了原本电脑上的Microsoft office plus后安装就一直出现“安装无法继续，因为一个必需文件已损坏或不可用，请从原始源光盘活下载位置重新运行安装程序”的报错，无法安装，我看了下应该确实把原本的office程序全删了，搜了好多也只有一个帖子，里面一个网址用不了，另一个里面的文件下下来也用不了。 有大神能帮忙解决吗？挺急的  

2020 年 2 月 11 日 - KB4537762（操作系统内部版本 17134.1304）更新老是失败，很多方法都试过了，没用。

按下win w 的时候总是自动出现手写工具栏，怎么关闭这个功能

如何提取Microsoft edge的缓存文件，特别是视频和照片等文件

  我想设计一个数据库，关于汽车的软件的，比如某款型号汽车应配备哪些ECU软件，然后和汽车上实际的安装的软件版本做对比。 目前我是用两个表格做的，通过VBA导出对比结果，但是比较慢，然后维护不方便，所以想到不知道能用数据库来做。   主表是汽车应配备软件的表格，含有车型名称，车型代码，车型年份，软件版本号 需要查对的表格主要有车架号VIN，车型名称，车型代码，车型年份，实际安装软件版本号。 需要输出那些车架号VIN安装对了软件，哪些没安装对。 请问大家，这种情况，是否可以建立ACCESS数据库输出对比？

麻烦请教一下各位，我现在有如下一个表格 想要经过汇总分析之后，自动生成下面这样一段话，并且还能够随着添加条目或者修改数据实时更改： “x处有A2个（编号1、2），y处有C1个（编号3）、D1个（编号4）......” 请问有没有尽量不用编程的实现的方法？比如利用已有软件的功能，如excel、filemaker等，谢谢各位了！