но, похоже, это не работает.
Я в основном пытаюсь скопировать данные из двух файлов в третий (новый файл) по этому коду:
Код: Выделить всё
Public Class Form1
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim wb1 As IXLWorkbook = New XLWorkbook("C:\Users\DelL\Downloads\Test")
Dim ws = wb1.AddWorksheet()
wb1.Save("C:\Users\DelL\Downloads\Test")
Dim wb2 As IXLWorkbook = New XLWorkbook(TextBox1.Text)
Dim ws2 As IXLWorksheet = wb2.Worksheets
Dim copiedData As DataTable = New DataTable
copiedData = ws2.Columns("A:G")
ws.Cell(1, 1).InsertData(copiedData)
wb1.Save("C:\Users\DelL\Downloads\Test")
Dim wb3 As IXLWorkbook = New XLWorkbook(TextBox2.Text)
Dim ws3 As IXLWorksheet = wb3.Worksheets
copiedData = ws3.Columns("A:N")
ws.Cell(1, 6).InsertData(copiedData)
wb1.Save("C:\Users\DelL\Downloads\Test")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
OpenFileDialog1.Filter = "Excel | *.xls; *.xlsx"
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
OpenFileDialog2.Filter = "Excel | *.xls; *.xlsx"
OpenFileDialog2.ShowDialog()
TextBox2.Text = OpenFileDialog2.FileName
End Sub
End Class
Я пробовал разные способы, но, похоже, это не проблема.
Это мой первый пост в этом сообществе, поэтому извините за ошибки, заранее спасибо.
Подробнее здесь: https://stackoverflow.com/questions/791 ... cel-vb-net