صممت برنامج يؤدي هالوظيفة باستخدام VB .Net 2003.
البرنامج الي صممته يقوم بتحويل كامل ملف الاكسيل,
السؤال هو كيف اخليه يحول فقط الخلايا اللي اظلل (احدد) عليها في ملف الاكسل نفسه؟
هذا الكود اللي استخدمته للتحويل:
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim patha, pathe As String
Dim AppAccess As Access.Application
pathe = TextBox1.Text
patha = TextBox2.Text
If (patha = "" Or pathe = "") Then
MessageBox.Show("No files Specified!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Try
AppAccess = New Access.Application
AppAccess.DoCmd.SetWarnings(False)
AppAccess.OpenCurrentDatabase(patha)
AppAccess.DoCmd.TransferSpreadsheet(Access.AcDataTransferType.acImport, Access.AcSpreadSheetType.acSpreadsheetTypeExcel9, "Imported File", pathe, False)
AppAccess.DoCmd.OpenTable("Imported File", Access.AcView.acViewDesign, Access.AcOpenDataMode.acEdit)
AppAccess.CloseCurrentDatabase()
AppAccess.Quit(Access.AcQuitOption.acQuitPrompt)
AppAccess.DoCmd.SetWarnings(True)
Catch ex As Exception
MessageBox.Show("Importing file is done!", "Done", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End If
End Sub