manoj.4400 Ответов: 1

Как читать текущий рабочий лист в vb6


Привет, нужна помощь относительно чтения текущего рабочего листа в VB6. В настоящее время он читает общий файл и переходит в двоичный. Но мне нужно отправить только текущий рабочий лист.

Что я уже пробовал:

Private Function pvGetFileAsMultipart(filePath As String, sFileName As String, boundary As String) As Byte()
    Dim nFile As Integer
    Dim sPostData As String
     '--- read file
    nFile = FreeFile
     Open (filePath + "\" + sFileName) For Binary Access Read As nFile
    If LOF(nFile) > 0 Then
        ReDim baBuffer(0 To LOF(nFile) - 1) As Byte
        Get nFile, , baBuffer
        sPostData = StrConv(baBuffer, vbUnicode)
    End If
    Close nFile
    '--- prepare body
    sPostData = "--" & boundary & vbCrLf & _
        "Content-Disposition: form-data; name=""" + sFileName + """; filename=""" & sFileName & """" & vbCrLf & _
        "Content-Type: application/octet-stream" & vbCrLf & vbCrLf & _
        sPostData & vbCrLf & _
        "--" & boundary & "--"
    '--- post
    pvGetFileAsMultipart = StrConv(sPostData, vbFromUnicode)
End Function

Maciej Los

Не могли бы вы быть более конкретными и предоставить более подробную информацию о том, чего вы пытаетесь достичь?

[no name]

Главный трюк в том, чтобы задать достойный вопрос, - это быть ясным. "Переход к двоичному коду" не имеет смысла. Что делает VB.NET это как-то связано с этим кодом? Что это такое, что вам нужна помощь? "Отправить текущий рабочий лист", Что такое рабочий лист? Куда отправить?

Maciej Los

Отправь его в Никогда-никогда-Землю ;)

[no name]

А ... тогда нам нужен метод Петерпана....

Maciej Los

:смеяться:

1 Ответов

Рейтинг:
0

Maciej Los

Ты не можешь!

Структура файла Excel: Workbook->Worksheets collection
Видеть: Объект Рабочей Книги (Excel)[^]

Чтобы иметь возможность "отправить текущий рабочий лист", вам нужно сохранить копию этого листа в новую рабочую книгу, а затем сохранить его как новую рабочую книгу:

ThisWorkbook.ActiveSheet.Copy
ActiveWorkbook.SaveAs "Drive:\Path\newName.xslx"
ActiveWorkbook.Close


Теперь вы можете использовать эту книгу и передать ее полный путь к вашей функции.

Для получения более подробной информации, пожалуйста, смотрите:
Как: программно открывать рабочие книги[^]
Как программно копировать рабочие листы[^]
Как программно закрыть рабочие книги[^]