«Ошибка выполнения 380: недопустимое значение свойства»

Когда я нажимаю кнопку «Экспорт» в электронной таблице, она экспортирует информацию в C: \ IMPORT.TXT

Затем я импортирую его в программу ярлыков. Оттуда напечатайте этикетки.

Ошибка, с которой он сталкивается, – «Ошибка выполнения 380: недопустимое значение свойства», когда я нажимаю «Экспорт»

Я приложил таблицу. Если вы нажмете на лист Tesco или Friends, вы увидите кнопку «Экспорт».

Я не уверен, можете ли вы отсортировать его без использования программного обеспечения для этикеток, но вы можете просмотреть макрокоманду и посмотреть, где он не работает?

Прикрепленный файл Здесь.

Спасибо.

Option Explicit Dim MojeF As ExcelExtras.Functions Public Sub FileSend() On Error Resume Next Dim wynik As String If MojeF Is Nothing Then Set MojeF = New ExcelExtras.Functions wynik = MojeF.FileTes(Application) ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 10 End Sub Public Sub SendTesco() Call SendIt("Tesco", "TESCO") End Sub Public Sub SendFr() Call SendIt("Friends", "FRIENDPR") End Sub Public Sub SendConv() Call SendIt("Con", "CONVEN") End Sub Public Sub SendStat() Call SendIt("Station", "STATIONG") End Sub Public Sub SendIt(arkusz As String, kodd As String) Dim wynik As String If MojeF Is Nothing Then Set MojeF = New ExcelExtras.Functions ' wynik = MojeF.SendIt(Application, arkusz, kodd, "a.txt - Notepad") wynik = MojeF.SendIt(Application, arkusz, kodd, "Sage Line 50 Financial Controller - Gourmet Productions Limited") ActiveWorkbook.Sheets(arkusz).Tab.ColorIndex = -4142 End Sub Private Sub auto_open() Dim aktywny As Integer For aktywny = 1 To ActiveWorkbook.Sheets.Count If Len(ActiveWorkbook.Sheets(aktywny).Name) > 1 And ActiveWorkbook.Sheets(aktywny).Name <> "Stand" And ActiveWorkbook.Sheets(aktywny).Name <> "Deluxe" Then ActiveWorkbook.Sheets(aktywny).Tab.ColorIndex = 3 Next End Sub 

Interesting Posts

Импорт статистики CSV NBA в Excel

ТипName в Excel VBA возвращает что?

Как использовать DynamicJasper для создания таблицы Excel с формулами для промежуточных итогов столбцов?

Импорт файла Excel в DataGridView

добавление к существующему файлу excel с использованием XSSFWorkbook

Excel: как вернуть True, если каждое значение в двух столбцах соответствует?

Как удалить дубликаты строк из таблицы, где поле certian равно указанному

С VBA существует ли более эффективный способ циклического преобразования строк в Excel, а затем цикл бросает их в два раза больше из этого цикла?

Столбец Сортировка не сортирует ссылочный столбец, только на активной колонке

VLookup + Поиск текста

SQL для продления дат и конвертации в формат Monday, February 20, 2017 или функция Excel

Можно ли вычислить сумму целой строки?

пакетный экспорт excel workbook в текстовый формат «prn»?

Проверьте, существует ли рабочая книга, если да, то проверьте, не открыта ли она. если открыто, то активируйте, если закрыто, тогда откройте его

Функция Excel для доступа к функции

Давайте будем гением компьютера.