Nano Hash - криптовалюты, майнинг, программирование

экспорт списков в Excel

Я пытаюсь экспортировать 3 списка в файл excel. каждый список должен экспортироваться в другую ячейку.

при отладке ошибок нет. но это не работает и замораживает форму.

вот мой код

 Private Sub Button1_Click(sender As Object, e As EventArgs)  Handles  Button1.Click
    MsExcel = CreateObject("Excel.Application")

    MsExcel.Workbooks.Open("C:\Users\User\Desktop\11.xlsx")

    OffS = 0

    For Each oItem In ListBox1.Items

        MsExcel.Range("AB2").Offset(OffS, 0).Value = oItem

        OffS = OffS + 1

        For Each oItemm In ListBox2.Items

            MsExcel.Range("AC2").Offset(OffS, 0).Value = oItemm

            OffS = OffS + 1

            For Each oItemmm In ListBox3.Items

                MsExcel.Range("AD2").Offset(OffS, 0).Value = oItemmm

                OffS = OffS + 1

            Next oItemmm

        Next oItemm

    Next oItem

    MsExcel.Visible = True

End Sub
vb.net excel vba listbox
17.12.2015

Ответы:


1

Вам нужно распаковать петли!
В вашем коде цикл для ListBox2 будет выполняться для каждого элемента в ListBox1 и в худшем случае для ListBox3!

И будьте осторожны, если вы вкладываете циклы, вам понадобятся разные элементы управления/индексы (здесь у вас есть одна и та же переменная для 3 вложенных циклов)

Private Sub Button1_Click(sender As Object, e As EventArgs)  Handles  Button1.Click
MsExcel = CreateObject("Excel.Application")
MsExcel.Workbooks.Open ("C:\Users\User\Desktop\11.xlsx")

OffS = 0
For Each oItem In ListBox1.Items
    MsExcel.Range("AB2").Offset(OffS, 0).Value = oItem
    OffS = OffS + 1
Next oItem

OffS = 0
For Each oItemm In ListBox2.Items
    MsExcel.Range("AC2").Offset(OffS, 0).Value = oItemm
    OffS = OffS + 1
Next oItemm

OffS = 0
For Each oItemmm In ListBox3.Items
    MsExcel.Range("AD2").Offset(OffS, 0).Value = oItemmm
    OffS = OffS + 1
Next oItemmm

MsExcel.Visible = True
End Sub
17.12.2015
Новые материалы
Кластеризация: более глубокий взгляд
Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
Как написать эффективное резюме
Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
Частный метод Python: улучшение инкапсуляции и безопасности
Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
Как я автоматизирую тестирование с помощью Jest
Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..