Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: VBA в excel перенос данных Добавлено: 12.01.13 22:35  

Автор вопроса:  omne
Народ хэлп как txt где данные находятся в столбец подсоединить к excel иными словами использовать txt как базу данных? Зарание спасибо.

Ответить

  Ответы Всего ответов: 10  

Номер ответа: 1
Автор ответа:
 seriy-coder



ICQ: 334588992 

Вопросов: 0
Ответов: 1
 Профиль | | #1 Добавлено: 27.01.13 01:18
а можно слегка поподробнее? просто из .txt файла данные закинуть в ячейку excel?

Ответить

Номер ответа: 2
Автор ответа:
 omne



Вопросов: 5
Ответов: 15
 Профиль | | #2 Добавлено: 01.02.13 20:59
Точно. Мне надо что бы при открытий excel из txt данные помещались в столбец начиная с ячейки А1 и до конца списка в списке бывает не более 100 записей.

Ответить

Номер ответа: 3
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
 Профиль | | #3 Добавлено: 08.02.13 06:00
Самый простой способ:
Формируете текстовый файл как "текст с разделителями", где в качестве разделителей используется табуляция или точка с запятой (можно любой другой, главной чтобы в тексте не встречался). Записываете макрос открытия текстового файла. Доделываете полученный скрипт, если в этом есть необходимость...
Пример (открывается файл c:\test.txt, разделитель - ;):
  1. With ActiveSheet.QueryTables.Add(Connection:= _
  2.         "TEXT;C:\Test.txt", _
  3.         Destination:=Range("$A$1"))
  4.         .Name = "Test"
  5.         .FieldNames = True
  6.         .RowNumbers = False
  7.         .FillAdjacentFormulas = False
  8.         .PreserveFormatting = True
  9.         .RefreshOnFileOpen = False
  10.         .RefreshStyle = xlInsertDeleteCells
  11.         .SavePassword = False
  12.         .SaveData = True
  13.         .AdjustColumnWidth = True
  14.         .RefreshPeriod = 0
  15.         .TextFilePromptOnRefresh = False
  16.         .TextFilePlatform = 1251
  17.         .TextFileStartRow = 1
  18.         .TextFileParseType = xlDelimited
  19.         .TextFileTextQualifier = xlTextQualifierDoubleQuote
  20.         .TextFileConsecutiveDelimiter = False
  21.         .TextFileTabDelimiter = False
  22.         .TextFileSemicolonDelimiter = True
  23.         .TextFileCommaDelimiter = False
  24.         .TextFileSpaceDelimiter = False
  25.         .TextFileColumnDataTypes = Array(2, 2, 2)
  26.         .TextFileTrailingMinusNumbers = True
  27.         .Refresh BackgroundQuery:=False
  28.     End With

Ответить

Номер ответа: 4
Автор ответа:
 omne



Вопросов: 5
Ответов: 15
 Профиль | | #4 Добавлено: 17.02.13 19:44
Спасибо

Ответить

Номер ответа: 5
Автор ответа:
 omne



Вопросов: 5
Ответов: 15
 Профиль | | #5 Добавлено: 20.03.13 20:53
Ну если быть точным разделитель тут ";" а не "-". Вот только разобраться бы где здесь указывается тот самый разделитель.

Ответить

Номер ответа: 6
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
 Профиль | | #6 Добавлено: 21.03.13 03:17
А если еще точнее, то разделитель ";" превратился в смайлик, чем внес небольшую путаницу...

Ответить

Номер ответа: 7
Автор ответа:
 omne



Вопросов: 5
Ответов: 15
 Профиль | | #7 Добавлено: 21.03.13 14:07
Да с чувством юмора у вас все в порядке :). А подскажите пожалуйста какая часть кода отвечает за тот самый разделитель ";".

Ответить

Номер ответа: 8
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
 Профиль | | #8 Добавлено: 22.03.13 05:35
Список всех разделителей:
  1. .TextFileConsecutiveDelimiter = False
  2. .TextFileTabDelimiter = False
  3. .TextFileSemicolonDelimiter = False
  4. .TextFileCommaDelimiter = False
  5. .TextFileSpaceDelimiter = False
  6. .TextFileOtherDelimiter = "#"


TextFileTabDelimiter - табуляция
TextFileSemicolonDelimiter - точка с запятой
TextFileCommaDelimiter - запятая
TextFileSpaceDelimiter - пробел
True напротив любого из них - используется как разделитель, False - не используется как разделитель

TextFileOtherDelimiter - свой разделитель (в данном случае шарп)
TextFileConsecutiveDelimiter - последовательность разделителей будет расцениваться ка один, если True, при False, соответственно, сколько разделителей - столько и значений.

PS C чувством юмора не только у меня в порядке, но и у создателей сайта, которые сделали чтобы ";" и ":" объединялись в ;:

Ответить

Номер ответа: 9
Автор ответа:
 omne



Вопросов: 5
Ответов: 15
 Профиль | | #9 Добавлено: 22.03.13 15:05
Большое спасибо за четкое и развернутое пояснение!

Ответить

Номер ответа: 10
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
 Профиль | | #10 Добавлено: 22.03.13 18:04
Да пожалуйста...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам