使用vba调用vb.net封装的dll，出现453错误

关注 码龄 粉丝数 原力等级 -- 被采纳 被点赞 采纳率 Bad_Strawberry 2024-04-10 11:16 采纳率: 25% 浏览 3 首页/ 微软技术 / 使用vba调用vb.net封装的dll，出现453错误 .netvisual studio 我试着用vb.net写一个dll，并且用vba调用它，但出现453错误，确定路径及函数名称是正确的，我不知道是什么原因导致这个错误 程式有点长，简单的说就是这只程式主要根据使用者输入的资料型态建立1000000笔的乱数并排序存入excel Imports Microsoft.Office.Interop Imports System.Runtime.InteropServices Public Class Class1 Function processData(index As String) Dim amount As Integer = 1000000 Dim rnds As New Random(DateTime.Now.Millisecond) Dim stopwatch As New Stopwatch() stopwatch.Start() Dim data(amount - 1) As Object For i As Integer = 0 To amount - 1 Select Case index Case "int" data(i) = rnds.Next(Integer.MinValue, Integer.MaxValue) + rnds.Next(0, 2) Case "char" data(i) = rnds.Next(-128, 128) Case "float" Dim floatMin As Single = Single.MinValue Dim floatMax As Single = Single.MaxValue Dim floatRandom As Single = CSng(floatMin + rnds.NextDouble() * (floatMax - floatMin)) data(i) = floatRandom Case "double" Dim doubleMin As Double = Double.MinValue Dim doubleMax As Double = Double.MaxValue Dim doubleRandom As Double = doubleMin + rnds.NextDouble() * (doubleMax - doubleMin) data(i) = doubleRandom Case "unsigned char" data(i) = rnds.Next(0, 256) Case "long" data(i) = rnds.Next(-2147483648, 2147483647) + rnds.Next(0, 2) Case "short" data(i) = rnds.Next(Short.MinValue, Short.MaxValue) End Select Next stopwatch.Stop() Dim generateTime As TimeSpan = stopwatch.Elapsed Console.WriteLine("Generate time: " & generateTime.TotalSeconds & " seconds") stopwatch.Start() Array.Sort(data) If index = "float" Then For i As Integer = 0 To data.Length - 1 Dim str As String = String.Format("{0:F10}", data(i)) If str.Length > 10 Then data(i) = str.Substring(0, 10) Else data(i) = str End If Next End If If index = "double" Then For i As Integer = 0 To data.Length - 1 Dim str As String = String.Format("{0:F10}", data(i)) If str.Length > 10 Then data(i) = str.Substring(0, 10) Else data(i) = str End If Next End If stopwatch.Stop() Dim sortTime As TimeSpan = stopwatch.Elapsed Console.WriteLine("Sort time: " & sortTime.TotalSeconds & " seconds") Dim sortArray(amount - 1, 0) As Object For i = 0 To amount - 1 sortArray(i, 0) = data(i) Next Dim excelApp As Object = Nothing Dim workbook As Excel.Workbook = Nothing Dim worksheet As Excel.Worksheet = Nothing Try excelApp = CreateObject("Excel.Application") workbook = excelApp.Workbooks.Add() worksheet = workbook.Worksheets(1) worksheet.Range("A1").Resize(sortArray.GetLength(0), 1).Value = sortArray 'worksheet.Range("A1").Resize(sortArray.GetLength(0), 1).NumberFormat = "0" workbook.SaveAs("C:\Users\Desktop\sortout.xls") Catch ex As Exception Console.WriteLine("Error: " & ex.Message) Finally If worksheet IsNot Nothing Then Marshal.ReleaseComObject(worksheet) If workbook IsNot Nothing Then Marshal.ReleaseComObject(workbook) If excelApp IsNot Nothing Then Marshal.ReleaseComObject(excelApp) End Try Console.WriteLine("Total execution time: " & generateTime.TotalSeconds + sortTime.TotalSeconds & " seconds") End Function End Class 以下是我的VBA Declare PtrSafe Function processData Lib "C:\Users\Documents\Visual Studio 2015\Projects\randomdata\randomdata\bin\x64\Debug\randomdata.dll" (ByVal index As String) Sub CallProcessData() Dim index As String index = InputBox("Enter data type (int, char, float, double, unsigned char, long, short): ") processData index MsgBox "Data processed and saved to Excel successfully!" End Sub 展开全部 收起 写回答 好问题 0 提建议 追加酬金 关注问题 微信扫一扫 点击复制链接 分享 邀请回答 编辑 收藏 删除 结题 收藏 举报 追加酬金 (90%的用户在追加酬金后获得了解决方案) 当前问题酬金 ¥ 0 (可追加 ¥500） ¥ 15¥ 20¥ 50¥ 100¥ 200 支付方式 扫码支付 二维码出错 点击刷新 支付金额 15 元 提供问题酬金的用户不参与问题酬金结算和分配 支付即为同意 《付费问题酬金结算规则》 结题 再想想 删除 再等等