如何解决类模块 - 将工作表分配给属性
我是课程模块的新手,所以请不要打扰我。
我只是在运行一个测试模块,我将一个工作表分配给一个属性以传递给类模块..
这样做的目的是将 CSV 数据粘贴到工作表中。
STRFILE = 数据的位置 WRK_SHEET = 将工作表粘贴到我想要粘贴的位置
但是,它无法识别工作表部分并向我抛出“未找到编译错误、方法或数据成员”
我不知道为什么,工作表被命名为我所称的..
首先是类模块数据..
Option Explicit
Public WRK_SHEET As Worksheet
Public Strfile As String
Public Sub ImportData()
WRK_SHEET.ClearContents
WRK_SHEET.ClearFormats
Dim ssql As String
Dim oQt As QueryTable
Strfile = "TEXT;" & Strfile
WRK_SHEET.Cells(1,1) = "hi"
Set oQt = WRK_SHEET.QueryTables.Add(Strfile,WRK_SHEET.Range("A1"))
With oQt
.TextFileCommaDelimiter = True
.TextFileParseType = xlDelimited
.Refresh
End With
现在我在模块中的正常 Sub..
Sub runcode()
On Error Resume Next
Dim oTest As cls_Test
Set oTest = New cls_Test
With oTest
.Strfile = Application.GetopenFilename("Text Files (*.csv),*.csv","Data")
.WRK_SHEET = Worksheets("Test")
End With
oTest.ImportData
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。