ЕКСЕЛ-ТХТ
5 отговора
0 прегледа
ЕКСЕЛ-ТХТ
ИМАМ КОЛОНА (А:А) СЪС ОКОЛО 4000 РЕДА ДАННИ.ИМАМ И КОПИЕ НА ДАННИТЕ ВЪВ ТЕКСТОВ ФАИЛ.МОЖЕ ЛИ СЛЕД КАТО ПРОМЕНЯ ДАННИТЕ В ЧЕТВЪРТИЯ РЕД ИЛИ ДРУГ С МАКРОС ДА СЕ ПРОМЕНЯТ И ДАННИТЕ В (ТХТ) КОИТО Е НА ДРУГ КОМП В МРЕЖА.
Re: ЕКСЕЛ-ТХТ
спретнах набързо един макрос, който може би ще ти свърши работа.
При стартирането му копира дадена област, отваря нов файл, пейства данните там и го сейва като txt.
Не претендирам, че работи на 100%, защото не съм твърде добър в макросите, а и не съм сигурен дали схванах целта на упражнението.
Все пак:
Sub Macro4()
'
' Macro4 Macro
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\My documents\proba excel txt.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
End Sub
В червено е името на файла и пътеката до него
При стартирането му копира дадена област, отваря нов файл, пейства данните там и го сейва като txt.
Не претендирам, че работи на 100%, защото не съм твърде добър в макросите, а и не съм сигурен дали схванах целта на упражнението.
Все пак:
Sub Macro4()
'
' Macro4 Macro
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\My documents\proba excel txt.txt", _
FileFormat:=xlUnicodeText, CreateBackup:=False
End Sub
В червено е името на файла и пътеката до него
Re: ЕКСЕЛ-ТХТ
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWorkbook.SaveAs Filename:="\\Bogdan\bogdan\proba.txt", FileFormat:= _
xlText, CreateBackup:=False
End Sub
"\\Bogdan\bogdan\proba.txt" ""\\компютър\папка\файл.разширение"
ActiveWorkbook.SaveAs Filename:="\\Bogdan\bogdan\proba.txt", FileFormat:= _
xlText, CreateBackup:=False
End Sub
"\\Bogdan\bogdan\proba.txt" ""\\компютър\папка\файл.разширение"
Re: ЕКСЕЛ-ТХТ
И ОЩЕ ЕДНА МОЛБА ЗА ПОМОЩ
НАПРАВИЛ СЪМ СИ НЕЩО КАТО ПРОГРАМА ПОД ЕКСЕЛ 2007,("СКЛАД.xlsm") СЪС НЯКОЛКО UserForm1 И ДР ПОД-VBA .ИНСТАЛИРАХ СИ -Microsoft Visual Studio 2008 И ОТ НЯКОЛКО ДНИ СЕ ОПИТВАМ ДА НАПРАВЯ СЛЕДНОТО: ПРОЕКТ СЪС ФОРМА В КОЯТО ИМА ПАДАЩИ МЕНЮТА ИДР.ЕКСЕЛСКИЯ ФАИЛ ,("СКЛАД.xlsm")В ПРОЕКТА И СЛЕД КАТО ГО КОМПИЛРАМ И СТАРТИРАМ КАТО КЛИКНА НА БУТОН ОТ ПАДАЩОТОТ МЕНЮ ДА СЕ СТАРТИРА ,("СКЛАД.xlsm")И ДА АКТИВИРА -UserForm1 ОТ ,("СКЛАД.xlsm") И ТН. ЩЕ СЪМ МНОГО БЛАГОДАРЕН АКО НЯКОЙ ПОМОГНЕ
НАПРАВИЛ СЪМ СИ НЕЩО КАТО ПРОГРАМА ПОД ЕКСЕЛ 2007,("СКЛАД.xlsm") СЪС НЯКОЛКО UserForm1 И ДР ПОД-VBA .ИНСТАЛИРАХ СИ -Microsoft Visual Studio 2008 И ОТ НЯКОЛКО ДНИ СЕ ОПИТВАМ ДА НАПРАВЯ СЛЕДНОТО: ПРОЕКТ СЪС ФОРМА В КОЯТО ИМА ПАДАЩИ МЕНЮТА ИДР.ЕКСЕЛСКИЯ ФАИЛ ,("СКЛАД.xlsm")В ПРОЕКТА И СЛЕД КАТО ГО КОМПИЛРАМ И СТАРТИРАМ КАТО КЛИКНА НА БУТОН ОТ ПАДАЩОТОТ МЕНЮ ДА СЕ СТАРТИРА ,("СКЛАД.xlsm")И ДА АКТИВИРА -UserForm1 ОТ ,("СКЛАД.xlsm") И ТН. ЩЕ СЪМ МНОГО БЛАГОДАРЕН АКО НЯКОЙ ПОМОГНЕ