Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
MessageBox.Show("你选择的是:" & dlg.FileName,"提示") '提示用户选择的文件
Dim Str1 As String = dlg.FileName
Dim fx As String
If Str1 > "" AndAlso Str1.Contains("返修") Then
fx = "返修单"
End If
Dim khmc As String
khmc = FileSys.GetName(dlg.FileName).SubString(0,3)
msgbox(khmc)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg1 As MSExcel.Range
Dim rowsmax As Integer = 0
Dim colmax As Integer = 0
Dim x As String
Dim y As String
Dim x0 As String
Dim y0 As String
Dim x1 As String
Dim y1 As String
Dim x2 As String
Dim y2 As String
Dim chrq As String
Dim rg = Ws.UsedRange
For i As Integer =1 To rg.Columns.count
Dim r = ws.cells(1000,i).End(MsExcel.XlDirection.xlUp).Row
If r > RowsMax Then
RowsMax = r
End If
Next
For i As Integer = 1 To rowsMax
Dim r = ws.cells(i,200).End(MsExcel.XLDirection.xlToLeft).Column
If r > ColMax Then
ColMax = r
End If
Next
For i As Integer = 1 To RowsMax
For j As Integer = 1 To ColMax
Rg1 = Ws.Cells(i,j)
If Rg1.text = "箱号" Then
x = i
y = j
End If
Next
Next
For i As Integer = 1 To RowsMax
For j As Integer = 1 To ColMax
Rg1 = Ws.Cells(i,j)
If Rg1.text = "本次出货" Then
x0 = i
y0 = j
End If
Next
Next
For i As Integer = 1 To RowsMax
For j As Integer = 1 To ColMax
Rg1 = Ws.Cells(i,j)
If Rg1.text = "总计:" Then
x1 = i
y1 = j
End If
Next
Next
For i As Integer = 1 To RowsMax
For j As Integer = 1 To ColMax
Rg1 = Ws.Cells(i,j)
If Rg1.text.Contains("出货日期") Then
x2 = i
y2 = j
Dim chr As String
chr = Ws.Cells(i,j).Value.SubString(5).Trim(" ").Replace("/","-")
Dim Day As Date = chr
chrq = Format(Day,"d")
msgbox(chrq)
End If
Next
Next
msgbox("箱号位置在" & x & "," & y & "总计位置在" & x1 & "," & y1 & "出货日期位置在" & x2 & "," & y2 )
Dim Builder As New ADOXBuilder
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("临时箱单") '创建表
With tbl
For j As Integer = y To y0
Rg1 = Ws.Cells(x,j)
Dim bt As String = Rg1.text.Trim(" ").Replace("/","")
.AddColumn(bt,ADOXType.String, 25)
msgbox(bt)
Next
End With
Builder.AddTable(tbl) '增加表
Builder.Close()
Dim Book As New XLS.Book("I:\transDetail2021-03-24.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("临时箱单").StopRedraw()
For Each dc As DataCol In DataTables("临时箱单").DataCols
Dim nms As String = dc.Name
For n As Integer = x+1 To x1
Dim r As Row = Tables("临时箱单").AddNew()
For m As Integer = y To y0
r(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("临时箱单").ResumeRedraw()
Next
End If
好像这句话错了，你帮我看看
加好友 
发短信
Post By：2021/4/8 15:36:00 [只看该作者]
此主题相关图片如下：01.jpg