求助，利用excel vba提取資料庫資料問題

1樓：草原上之狼

1、漢字在前，數字在後面的情形。可以用mid，min， find三個函式來實現提取裡面的數字。如圖：

在b2輸入「=mid(a1，min(find(，a1&「0123456789」))，20)」

2 、把單元格裡面所有的數字都提出來。可以使用巨集。先開啟vba編輯器。工具——巨集——visual basic 編輯器

function zzsz(xstr as string) as stringdim i as integerfor i = 1 to len(xstr)if isnumeric(mid(xstr， i， 1)) then zzsz = zzsz & mid(xstr， i， 1)nextend function

4、回到工作表，在b2單元格那裡輸入「=zzsz(a2)」。就可以用vba把a2單元格裡所有的數字都提取出來了，如圖所示。

excel怎麼只提取**中的數字

5、指定從第幾個陣列提取開始。也就是說在不連續的那些數字中，從第幾次出現的陣列開始提取。同樣在模組那裡輸入如下**：

function getnums(rcell as range， num as integer) as stringdim arr1() as string， arr2() as stringdim chr as string， str as stringdim i as integer， j as integeron error goto line1

str = rcell.textfor i = 1 to len(str)chr = mid(str， i， 1)if (asc(chr) 《 48 or asc(chr) 》 57) thenstr = replace(str， chr，「」)end ifnext

arr1 = split(trim(str))redim arr2(ubound(arr1))for i = 0 to ubound(arr1)if arr1(i) 《》「」 thenarr2(j) = arr1(i)j = j + 1end ifnext

getnums = iif(num 《= j， arr2(num - 1)，「」)line1:end function

2樓：

這個伺服器可以遠端訪問？

excel vba 提取資料問題

3樓：匿名使用者

sub 提取a表t列的空資料()

dim arr, i&, j&

sheet4.range("h:i").

clearcontentsarr = sheet1.usedrangefor i = 2 to ubound(arr)if len(arr(i, 2)) > 0 thenif len(arr(i, 20)) = 0 or arr(i, 20) = 0 then

k = k + 1

sheet4.cells(k + 1, 8) = arr(i, 2)sheet4.cells(k + 1, 9) = arr(i, 3)end if

end if

msgbox "好"

end sub

4樓：平陽虎

試試sheet4.cells(k + 1, 8) = arr(i, 2) & arr(i, 3)

excel用vba連到資料庫讀出資料 100

5樓：陽光上的橋

另外，例子**是把表中的資料全部讀到乙個表裡面，你可以然後在vlookup填寫表的bc列。

求助，excel通過vba操作sql資料庫

6樓：匿名使用者

sub querysqlsheet()

dim cnn as object

dim sql$

set cnn = createobject("adodb.connection")

mypath = thisworkbook.fullname

cnn.open "provider=microsoft.ace.

oledb.12.0;extended properties=excel 12.

0;data source=" & mypath

sql = "select * from [aaa$a1:e6] where 姓名='" & [l2] & "'"

'sql = "update [aaa$] set 年齡='99'where 姓名='張三'"

'cnn.execute (sql)

[k5].copyfromrecordset cnn.execute(sql)

cnn.close

set cnn = nothing

end sub

vba 從資料庫讀取資料寫到 excel 10

7樓：陽光上的橋

'sql完整例子

sub testsql()

'定義連線物件

dim cnn as new adodb.connectiondim rs as new adodb.recordset'定義連線字串

dim constr as string

dim sqlstr as string

'連線字串-以下是連線mssql資料庫

constr = "provider=sqloledb; " _& "server=192.168.1.

121; " _& "database=databasename;uid=admin;pwd=admin;"

cnn.open constr

sqlstr = "select * from tablename"

rs.open sqlstr, cnn

range("a2").copyfromrecordset rsrs.close

cnn.close

end sub

求助，利用excel vba提取資料庫資料問題

excel vba怎麼將工作表A中的多列資料複製到工作表B中，並使複製到B中的資料顯示出該資料的引用位置

小學奧數題，求助各位，小學奧數題求助

EXCEL如何利用公式製作表A提取表B裡面的資料

其他用戶還看了：