транспонирование / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / транспонирование

5 сообщений из 5, страница 1 из 1

транспонирование

#39759732

saxarock

Участник

Откуда: ЕКБ

Сообщения: 161

Рейтинг: 0 / 0

Товарищи знатоки,

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

Set objFSO = CreateObject("Scripting.FileSystemObject")
src_file = "~\transpon\src\14.xls"
dest_file = "~\transpon\for_load.csv"


Dim oExcel
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
Dim oBook
Set oBook = oExcel.Workbooks.Open(src_file)
oBook.SaveAs dest_file, 6 ',,,false,true,,,,,, -4143
oBook.Close False
oExcel.Quit

есть такого вида vba, который запускается из bat.
необходимо чтобы в dest_file - получался транспонированный файл src_file.
в VBA не силен, поэтому прошу тупо сделать рабочий код.

...

Рейтинг:

0 / 0

15.01.2019, 13:13

| Ответить | Цитировать | Написать

транспонирование

#39759744

big-duke

Участник

Сообщения: 6 245

Рейтинг: 0 / 0

saxarock,

В книге один лист, содержимое которого нужно транспонировать ?

...

Рейтинг:

0 / 0

15.01.2019, 13:40

| Ответить | Цитировать | Написать

транспонирование

#39759746

saxarock

Участник

Откуда: ЕКБ

Сообщения: 161

Рейтинг: 0 / 0

big-duke,

Да.

...

Рейтинг:

0 / 0

15.01.2019, 13:43

| Ответить | Цитировать | Написать

транспонирование

#39759981

Казанский

Гость

saxarock,

objFSO зачем? Это только часть кода? Вот часть с транспонированием

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Option Explicit

Const src_file = "~\transpon\src\14.xls"
Const dest_file = "~\transpon\for_load.csv"
Dim oExcel, oBook, oNewBook
  Set oExcel = CreateObject("Excel.Application")
  oExcel.Visible = False
  oExcel.DisplayAlerts = False
  Set oBook = oExcel.Workbooks.Open(src_file)
  Set oNewBook = oExcel.Workbooks.Add(-4167) 'xlWBATWorksheet - книга с одним листом
  oBook.Sheets(1).UsedRange.Copy
  oNewBook.Sheets(1).Range("A1").PasteSpecial -4163, , , True 'xlValues...Transpose
  oNewBook.SaveAs dest_file, 6 ',,,false,true,,,,,, -4143
  oBook.Close False
  oNewBook.Close False
  oExcel.Quit

...

Рейтинг:

0 / 0

15.01.2019, 19:45

| Ответить | Цитировать | Написать

транспонирование

#39763980

saxarock

Участник

Откуда: ЕКБ

Сообщения: 161

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

src_file = "~\1.xls"
dest_file = "~\l.csv"


Dim oExcel
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = true
Dim oBook
Set oBook = oExcel.Workbooks.Open(src_file)

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.

ActiveSheet.Range("a1").Select
    name1 = ActiveSheet.Name
    name2 = ActiveWorkbook.Name
    MsgBox (name1)
    MsgBox (name2)
    ActiveSheet.Name = "V"
   'Set colvalue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
   '                          LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
   'c = colvalue.Column
   'Set rowvalue = Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _
   '                          LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
   ' r = rowvalue.Row
   
   Set colvalue = Cells.Find("*", Range("a1"), xlValues, xlPart, xlByColumns, xlPrevious, False, False)
   c = colvalue.Column
   
   Set rowvalue = Cells.Find("*", Range("A1"), xlValues, xlPart, xlByRows, xlPrevious, False, False)
   r = rowvalue.Row
   
   
   
    Range(Cells(1, 1), Cells(r, c)).Select
   'Cells(10, 1) = r '4
   'Cells(10, 2) = c '7
   'Workbooks.Add
   Sheets.Add After:=Sheets(Sheets.Count) '-- &#245;&#238;&#242;&#229;&#235; &#237;&#238;&#226;&#251;&#233; &#235;&#232;&#241;&#242;, &#239;&#229;&#240;&#229;&#228;&#243;&#236;&#224;&#235;
   ActiveSheet.Name = "GF"
    
   For n = 0 To (r - 2)
         For i = 1 To c '&#241;&#242;&#238;&#235;&#225;&#246;&#251;
            
         Sheets("GF").Cells(i + n * c, 2) = Sheets("V").Cells(1, i)
         Sheets("GF").Cells(i + n * c, 1) = n + 1
               
         Next i
    Next n
    
     For n1 = 0 To (r - 2)
       
         
         For i = 1 To c '&#241;&#242;&#238;&#235;&#225;&#246;&#251;
            
              Sheets("GF").Cells(i + n1 * c, 3) = Sheets("V").Cells(n1 + 2, i)
         
               
         Next i
       
    Next n1
    Sheets("V").Select
    ActiveSheet.Name = name1
       Sheets("GF").Select
    Sheets("GF").Move

помогите один к другому прицепить

...

Рейтинг:

0 / 0

24.01.2019, 09:41

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / транспонирование

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=39759981&tid=2154956]:	0ms
get settings:	10ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	39ms
get topic data:	13ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	2ms
others:	14ms

total:	151ms