2013-04-08 4 views
-4

У меня есть текстовый файл, содержащий некоторые значения, и мне нужно заполнить эти значения до xls. Как я могу это сделать с помощью макросов. Предположим, у меня есть текстовый файл, как указано ниже:Импорт значений в xls из текстового файла

Имя файла - data.txt

Records received in CIF file : 2682 
Records loaded in CIF table : 2682 
count : 2682 

И я иметь формат XLS, как

File name: Output.csv      
Load summary:       
    "(A) 
Records received in CIF file" "(B) 
Records loaded in CIF table (temp_location)" "(C) 
Records failed to load" 
    2682 2682 2682 

мне нужно заполнить 2682 для выходного файла, как указано выше но в xls. Здесь я хочу использовать микро, так что всякий раз, когда мне нужно заполнять значения в xls, я хочу сделать это, запустив макрос, и значения будут автоматически заполнены в xls.

+1

@SysDragon Я думаю, что ОП пытался заставить нас писать код. .. –

+0

Пожалуйста, поделитесь тем, какой код у вас есть. См. [Ask] – glh

ответ

2

так что ваш код должен сделать следующее:

  1. Откройте файл данных, используйте FileSystemObject см MSDN Library: FileSystemObject
  2. Начните цикл чтения по линиям данных в тестовом файле (см MSDN Library: How to use Looping Structures in VBA
  3. Прочитайте файл для конца записей, полученный в СИФ файла: и принимать значение после этого см MSDN Library: OpenAsTextStream Method и MSDN Library: FSO ReadLine Method и для . Строка Манипуляция см Learn Excel: String Manipulation и Excel VBA: String Manipulation и конечно: MSDN Library: VB6/VBA String Functions Reference
  4. получить число из строки
  5. Поместите это число в результате листа (см [Как ссылаться на ячейки и диапазоны Excel 2003 VBA Language Reference и MS Excel Visual Basic Reference)
  6. следующего цикла вернуться к шагу 2
  7. Сохранить рабочий лист с использованием Сохранить метод (см MSDN Library: Excel Workbook Save Method

, что чтение поможет вам начать

Любые проблемы или вопросы, сообщите нам об этом ПОСЛЕ вы пробовали писать код

Филипп

Смежные вопросы