Помогите пожалуйста!!! - Microsoft Office Excel

Gawwws · 20.10.2008, 00:25

Не понимаю!!! Мне надо вставить несколько ячеек в текстовый файл, а так не получается:

Range("A1:C" & A + 13).Copy
Dim FileNum As String
FileNum = FreeFile
Open "C:\" & sName17 & ".dat" For Output As #FileNum
Print #FileNum, Clipboard.GetText
Close #FileNum

В буфер данные копируются, а в текстовый файл не вставляются - пишет, что в стороке
"Print #FileNum, Clipboard.GetText" ошибка!!

valerij · 20.10.2008, 00:43

Цитата:

Сообщение от Gawwws

В буфер данные копируются, а в текстовый файл не вставляются - пишет, что в стороке
"Print #FileNum, Clipboard.GetText" ошибка!!

У меня, все ОК!!!

Gawwws · 20.10.2008, 01:08

Может нужно что-то вводить?? Переменную на буфер или ещё чтонибуть?

Gawwws · 20.10.2008, 01:40

Пожалуйста!!! Ответте что-нибуть!!!

SAS888 · 20.10.2008, 05:05

В Tools -> Reference подключите библиотеку "Microsoft Forms 2.0 Object Library".

EducatedFool · 20.10.2008, 05:37

В случае использования, например, такого кода

Код:

Public Function GetClipboard() As Variant
    Dim MyDataObj As New DataObject
    MyDataObj.GetFromClipboard: GetClipboard = MyDataObj.GetText()
End Function

желательно добавить строку on error resume next
т.к. иначе может вылетать Ошибка в структуре FormatEtc, появление которой означает, что Вы скопировали что-то не очень похожее на текст (например, файл)

20.10.2008, 00:25	#1
Gawwws Пользователь Регистрация: 18.10.2008 Сообщений: 65	Помогите пожалуйста!!! Не понимаю!!! Мне надо вставить несколько ячеек в текстовый файл, а так не получается: Range("A1:C" & A + 13).Copy Dim FileNum As String FileNum = FreeFile Open "C:\" & sName17 & ".dat" For Output As #FileNum Print #FileNum, Clipboard.GetText Close #FileNum В буфер данные копируются, а в текстовый файл не вставляются - пишет, что в стороке "Print #FileNum, Clipboard.GetText" ошибка!! https://www.viagrasansordonnancefr.c...ix-maroc-cher/

20.10.2008, 01:08	#3
Gawwws Пользователь Регистрация: 18.10.2008 Сообщений: 65	Ну всё-же!!! Может нужно что-то вводить?? Переменную на буфер или ещё чтонибуть? https://www.viagrasansordonnancefr.c...ix-maroc-cher/

20.10.2008, 01:40	#4
Gawwws Пользователь Регистрация: 18.10.2008 Сообщений: 65	Пожалуйста!!! Ответте что-нибуть!!! https://www.viagrasansordonnancefr.c...ix-maroc-cher/

20.10.2008, 05:05	#5
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	В Tools -> Reference подключите библиотеку "Microsoft Forms 2.0 Object Library". Чем шире угол зрения, тем он тупее.

20.10.2008, 05:37	#6
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	В случае использования, например, такого кода Код: `Public Function GetClipboard() As Variant Dim MyDataObj As New DataObject MyDataObj.GetFromClipboard: GetClipboard = MyDataObj.GetText() End Function` желательно добавить строку on error resume next т.к. иначе может вылетать Ошибка в структуре FormatEtc, появление которой означает, что Вы скопировали что-то не очень похожее на текст (например, файл) __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!!	VisTBacK	Помощь студентам	6	19.09.2008 13:44
Помогите пожалуйста!!!	Esenin	Помощь студентам	1	21.06.2008 01:45