но, похоже, это не работает.
Я в основном пытаюсь скопировать данные из двух файлов в третий (новый файл) по этому коду:
Код: Выделить всё
Imports System
Imports System.Collections.Specialized
Imports System.Runtime.InteropServices
Imports System.Security.Cryptography
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Imports ClosedXML
Imports ClosedXML.Excel
Imports DocumentFormat.OpenXml.Spreadsheet
Public Class Form1
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim wb1 As IXLWorkbook = New XLWorkbook("C:\Users\oxy\Downloads\Test\Test.xlsx")
Dim ws As IXLWorksheet = wb1.AddWorksheet
wb1.SaveAs("C:\Users\oxy\Downloads\Test\Test2.xlsx")
Dim wb2 As IXLWorkbook = New XLWorkbook(TextBox1.Text)
Dim ws2 As IXLWorksheet = wb2.AddWorksheet
ws.Cell(1, 1).InsertData(ws2.Columns("A:G"))
wb1.SaveAs("C:\Users\oxy\Downloads\Test\Test2.xlsx")
Dim wb3 As IXLWorkbook = New XLWorkbook(TextBox2.Text)
Dim ws3 As IXLWorksheet = wb3.AddWorksheet
ws.Cell(1, 6).InsertData(ws3.Columns("A:N"))
wb1.SaveAs("C:\Users\oxy\Downloads\Test\Test2.xlsx")
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
Мобильная версия