| Код |
Imports Microsoft.Office.Interop
Imports System
Imports System.Data
Public Class Form1
Dim artikul_number, name_of_tovar, collect_name, pol, price, sostav As Byte
Dim xl As Excel.Application
Dim fFile As Short
Dim path As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
path = "D:\Price_1.xls"
fFile = FreeFile()
artikul_number = TextBox1.Text
name_of_tovar = TextBox2.Text
collect_name = TextBox3.Text
pol = TextBox4.Text
price = TextBox5.Text
sostav = TextBox6.Text
Dim artikul_last, artikul_current, artikul_next, color_last, color_current, color_next, size_last, size_current, size_next, Size, Color, tStr As String
Dim i, j, k As Integer
Dim str_length As Byte
Dim aTemp()
Dim Flag_of_record, Flag_Dubl_of_size, Flag_1_proxoda As Boolean
xl.Application.Workbooks.Open(fFile, path)
|
Добавлено через 40 секунд
в каталог с прогой файл тоже пробовал выкладывать. не помогает.
Добавлено через 14 минут и 19 секунд
на 24 (последней тут) строке лает ошибку: "В экземпляре объекта не задана ссылка на объект". |