Копирование массива в буфер обмена

[ZlydenGL]

Всем привет!

Есть следующая задача - есть огромный двухмерный массив (по высоте ) и есть у меня желание его в определенный момент напрямую в буфер обмена запихнуть - допустим чтобы в Excel вставить. То есть каждый элемент должен быть разделен чем-то вроде vbTab'ом, каждая строка отделена от следующей vbNewLine'ом.

Естественно массив отвечает требованиям того же Excel'я: число строк меньше 65536, число столбцов меньше 256.

В общем желание есть, а вот возможности подкачали Вроде бы даже поиском по форуму прошелся - ответа не нашел. HELP!!!

Заранее спасибо!

[xolod]

Следующий код скопирует в буфер обмена 10 столбцов по 10 ячеек в каждом.. Можно вставить в excel и посмотреть на результат

Код: Выделить всё

  Dim astrBuffer(10, 10) As String
  Dim lngRow As Long
  Dim lngColumn As Long
 
  '//Создадим массив
  For lngRow = 0 To 10
    For lngColumn = 0 To 10
      astrBuffer(lngColumn, lngRow) = CStr(Rnd)
    Next lngColumn
  Next lngRow
  '//
 
  '//Создадим приемлемый формат данных для офиса и скопируем в буфер обмена
  '//
  '//офис умеет хранить данные в множестве различных форматов
  '//вот самый простой:
  '//ЯЧЕЙКА_1->TAB->ЯЧЕЙКА_2->TAB->ЯЧЕЙКА_N->CRLF_1->ЯЧЕЙКА_1->TAB->ЯЧЕЙКА_2->TAB->ЯЧЕЙКА_N->CRLF_N
  Dim astrImage As String
 
  For lngRow = 0 To 10
    For lngColumn = 0 To 10
      '//Чтобы не было лишней колонки, выполним простую проверку
      If (lngColumn < 10) Then
        astrImage = astrImage & astrBuffer(lngColumn, lngRow) & vbTab
      Else
        astrImage = astrImage & astrBuffer(lngColumn, lngRow)
      End If
      '//
    Next lngColumn
   
    astrImage = astrImage & vbCrLf
  Next lngRow
 
  Clipboard.SetText astrImage
  '//



[ZlydenGL]

А разве на длину строки не накладывается ограничение в 255 символов? Понятно, что с матрицей 10х10 код прокатит. А для допустим 256х13? Надо будет попробовать...

[xolod]

Какое ограничение в 255 символов?! Это ты откуда взял ?
Пробуй, все будет замечательно работать.

[alibek]

Это ограничение было в старых версиях бейсика (BASICA, GWBASIC). Даже в QBasic и Quick Basic было какое-то (то ли 255, то ли 1024).

[tyomitch]

FTR, в QB - 32767 символов.
И даже афаик в gwbasic так.

А вот basica, увы, не сохранился - проверить как там, не могу. Но "по косвенным данным" - 255.

[alibek]

Каюсь, в QB строка может быть до 32767 символов.
Но в GW-BASIC она точно не более 255.

[Andrey Fedorov]

Каюсь, в QB строка может быть до 32767 символов.
Но в GW-BASIC она точно не более 255.

В VB6 тоже есть еще оно ограничение на длину строки - кода - в модуле. Сколько символов не помню точно - проверять и уточнять влом, да и неинтересно...

Но вообще копирование массива в буфер для последующей вставки в Excel - не очень хорошее решение, так как простое копирование с разделением vbTab не дает Excel-у возможности однозначно определить тип поля (число/строка/дата). Лучше делать нормальный экспорт из программы - оно ненамного сложней...

[mnzol]

Если не обязательно в буфер, то самый лучший способ

dim DataArray(1 to 10000, 1 to 5) as ......
...
...

Worksheets(1).Range("A1").value = DataArray

Работает также быстро как Paste!
Про это отличная статейка у Билла Q247412

[ZlydenGL]

mnzol, вообще не работает! Твоя конструкция вылетает с ошибкой. Может, это с величиной массива связано?

xolod, будешь смеяться - не хватает У меня получается выгрузка в Ёксель размером 12х20000, в строку не помещается - хоть тресни

[alibek]

ZlydenGL, должно работать. Какая у тебя версия Excel? И какой тип массива DataArray? Попробуй объявить его, как Variant.

[ZlydenGL]

Комплект M$ Office 2000, DataVal у меня типа Variant как раз.

Команда следующая:

Код: Выделить всё

Dim xlsapp As Excel.Application, DataVal()
...
xlsapp.Activeworkbook.Worksheets("Bal1").Range("C1") = DataVal

Сейчас ошибка не вылетает почему-то, но и в Ёксель ничего не постится, он у меня перед глазами.

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

[alibek]

Проверил, все работает.
Попробуй .Range("C1:G20000").Value = DataVal()

[ZlydenGL]

Ага, так работает! Отлично, СПАСИБО БОЛЬШОЕ!!!