Отцы макросов Ёкселя

jester

научите меня с ними работать?

Elina74

Пример. Что ты хочешь сделать?

a10063

жми F1 и читай

по делу: имхо, лучше начать изучение с Range + пользоваться записью макросов

otvertka07

200р/час (академический)

jester

1. Два примера.
Есть таблица с данными на шаре, я хочу локально оперировать с данными из той таблицы.
2. Нужно построить диаграмму

Elina74

Нифига не понял. Словей-то мы таких не знаем... Шара, локально оперировать...
У тебя данные на шаре (в смысле, шар, цилиндр, тор) или шара - в смысле сети, share?

ipush

По поводу второго примера: запиши в макрос построение диаграммы, а потом смотри код.

Elina74

У меня есть встречный вопрос: как с помощью HTML и CSS сделать чтобы можно было мышкой картинки рисовать, как в фотошопе?

ipush

а что, разве фотошоп не на html писали?

arturabramian

типа об том и речь.

0000

1. Что-то в духе



Dim SQL as String

Dim ColCount, RowCount As Integer



SQL = "SELECT * FROM <путь к шаре>\Table1.dbf"



With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _

    "ODBC;CollatingSequence=ASCII;DBQ=" & PathDB & ";DefaultDir=C:\;Deleted=0;Driver={Microsoft dBase Driver (*.dbf)};Dr" _

     Array( _

    "iverId=277;FIL=dBase IV;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Statistics=0;Threads=3;UID=admin;User" _

     Array("CommitSync=Yes;" Destination:=Range("A9"

    .CommandText = Array(SQL)

    .Name = "Запрос из MyDB"

    .FieldNames = False

    .RowNumbers = False

    .FillAdjacentFormulas = False

    .PreserveFormatting = False

    .RefreshOnFileOpen = False

    .BackgroundQuery = True

    .RefreshStyle = xlInsertDeleteCells

    .SavePassword = True

    .SaveData = True

    .AdjustColumnWidth = True

    .RefreshPeriod = 0

    .PreserveColumnInfo = True

    .Refresh BackgroundQuery:=False

    

    ' Получим количество строк заполненых запросом пока не поздно

    RowCount = CInt(.ResultRange.Count / ColCount)

End With

sgnik

даю бесплатно хороший совет, как самому освоить vba
в екселе и ворде есть возможность записывать макросы, когда не знаешь как его написать, можешь записать макрос, выполняя все ручками, а потом переходи в окружение вба (Alt+F11) и смотри что там получилось

Оставить комментарий