VBNet - Форум - Excel - указать файл

Вопрос: Excel - указать файл Добавлено: 08.10.10 21:12

Автор вопроса: yukra | Web-сайт: yukra.ru

есть след. код макроса, нужно что бы читался не заданный файл(i:\file.txt),а что бы пользователь указывал какой именно файл читать (можно до выполнения макроса, но естественно вариант "пусть пользователь в ячейку A1 напишет 'с:\Документ и сетинг\Имя пользователя\Рабочий стол\Файл.тхт' а ты из a1 его прочитай" не очень подходит)

Sub Макрос2()
   Sheets("Лист3").Select
   Cells.Select
   Selection.Delete Shift:=xlUp


    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;I:\file.txt", _
        Destination:=Range("A1"))
        .Name = "POS1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 4
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileDecimalSeparator = "."
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Ответить

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

Номер ответа: 1 Автор ответа: Nezhniy ICQ: 419841508 Вопросов: 9 Ответов: 100	Web-сайт: www.helpim.ru Профиль \| \| #1	Добавлено: 08.10.10 22:42
	openfiledialog тебе в помощь ) http://msdn.microsoft.com/ru-ru/library/system.windows.forms.openfiledialog.aspx , там показано как пользоваться , далее задай условие , типа какой файл выбран , значит с ним проводить макрос. Ответить

Номер ответа: 2 Автор ответа: DrugON ICQ: nospam Вопросов: 10 Ответов: 53	Профиль \| \| #2	Добавлено: 02.06.11 14:27
	У меня вот как это реализовано. Думаю, что на примере можно и переиначить как нужно. Сам долго не мог разобраться, как вызвать диалог выбора нужного файла, потом у кого-то спер. В основном макросе вызываем функцию dayFile = GetFileName() 'Application.AskToUpdateLinks = False Application.DisplayAlerts = False If dayFile <> "" Then Set TgtWbk = Workbooks.Open(dayFile, True, True) End If Код функции: Function GetFileName() Dim Filter As String, Title As String Dim FilterIndex As Integer Dim Filename As Variant ' File filters Filter = "Excel Files (.xls),.xls," & _ "Text Files (.txt),.txt," & _ "All Files (.),." ' Default Filter to . FilterIndex = 3 ' Set Dialog Caption Title = "Select 90 days file" With Application ' Set File Name to selected File Filename = .GetOpenFilename(Filter, FilterIndex, Title) End With ' Exit on Cancel If Filename = False Then MsgBox "No file was selected." GetFileName = "" Exit Function End If ' Open File GetFileName = Filename End Function Ответить

Страница: 1 |