- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何实现在excel单元格中填入文字信息 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186018)
-- 发布时间：2023/4/1 8:52:00
-- 如何实现在excel单元格中填入文字信息
With Tables("返单上游")
If .Current IsNot Nothing Then
If .Current.IsNull("上游客户") OrElse .Current.IsNull("品牌") Then
MessageBox.Show("【上游客户】【品牌】不能为空,请填写完整后再添加返单明细!")
Else
Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls;*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For n As Integer = 1 To Sheet.Rows.Count - 1
If sheet(n, 1).text <> .Current ("上游客户") Then
MessageBox.Show("表内部分行上游客户名称不符，重新维护后再行导入！")
sheet(n, 0).Value = "客户名称不符"
End If
Next
End If
End If
End If
End With
老师，这段代码运行时没有问题，但就是在条件不符时，EXCEL对应的单元格上怎么没有出现文字对应的文字呢？
-- 发布时间：2023/4/1 8:58:00
--
调试
For n As Integer = 1 To Sheet.Rows.Count - 1
output.show(sheet(n, 1).text & "," & .Current ("上游客户"))
If sheet(n, 1).text <> .Current ("上游客户") Then
MessageBox.Show("表内部分行上游客户名称不符，重新维护后再行导入！")
sheet(n, 0).Value = "客户名称不符"
End If
Next
End If
-- 发布时间：2023/4/1 9:07:00
--
我设置了三条不符的，正常出现了三次弹窗。但还是没有写进文字
-- 发布时间：2023/4/1 9:13:00
--
但这个弹窗没出来output.show(sheet(n, 1).text & "," & .Current ("上游客户"))
-- 发布时间：2023/4/1 9:16:00
--
此主题相关图片如下：1.png
-- 发布时间：2023/4/1 9:23:00
--
output.show是输出到命令窗口的，到命令窗口调试
-- 发布时间：2023/4/1 9:30:00
--
此主题相关图片如下：微信截图_20230401092811.png
-- 发布时间：2023/4/1 9:53:00
--
测试窗口可以出来
-- 发布时间：2023/4/1 10:07:00
--
把execl文件的行拉高看看
-- 发布时间：2023/4/1 10:28:00
--
清楚了，老师，EXCEL写入之后，需要执行一次保存
Book.Save(dlg.FileName)
加上这行代码就可以了
多谢