TextBox5.Text 这里边的字符串变成了 TextBox4.Text
谁知道怎么解决?
FilePathName_BOM = TextBox4.Text
FilePathName_Caigou = TextBox5.Text
excelApp = CType(CreateObject("excel.application"), Excel.Application)
excelApp.Visible = False
excelBook1 = excelApp.Workbooks.Open(FilePathName_BOM) '打开选中的文件,原始文件
excelSheet1 = CType(excelBook1.Worksheets(1), Excel.Worksheet)
excelRows1 = excelSheet1.UsedRange.Rows.Count '读取文件中的行数
excelClos1 = excelSheet1.UsedRange.Columns.Count '读取文件中的列数
excelBook2 = excelApp.Workbooks.Open(FilePathName_Caigou) '打开选中的文件,采购清单
excelSheet2 = CType(excelBook2.Worksheets(1), Excel.Worksheet)
excelRows2 = excelSheet2.UsedRange.Rows.Count '读取文件中的行数
excelClos2 = excelSheet2.UsedRange.Columns.Count '读取文件中的列数
3 个解决方案
#1
自己搜代码啊,找出 TextBox5 的所有调用,看哪里给 TextBox5.Text 赋值了,就下断点。
调试过程中每次碰到断点,都仔细分析一下这次赋值是否正确。
调试过程中每次碰到断点,都仔细分析一下这次赋值是否正确。
#2
你点的哪个选择啊?那就是那里的代码有问题呗,OpenFileDialog返回值错误赋值给了另一个文本框。这编码也醉了,不能命名一下么,怪不得搞混。
#3
#1
自己搜代码啊,找出 TextBox5 的所有调用,看哪里给 TextBox5.Text 赋值了,就下断点。
调试过程中每次碰到断点,都仔细分析一下这次赋值是否正确。
调试过程中每次碰到断点,都仔细分析一下这次赋值是否正确。
#2
你点的哪个选择啊?那就是那里的代码有问题呗,OpenFileDialog返回值错误赋值给了另一个文本框。这编码也醉了,不能命名一下么,怪不得搞混。