我可以在EXCEL中使用VBA讀取計算機的機器程式碼嗎？

oleobject 物件。

請參見 Properties 方法 Event 屬性。

sheets

oleobjects (oleobject)

borders (border)

interior

返回工作表中的 ActiveX 控制項或鏈結或內聯 OLE 物件。 OleObjects 物件是 OleObjects 集合的成員。 OleObjects 集合包含單個工作表中的所有 OLE 物件。

oleobject 物件的用法。

可以使用 OleObjects（index） 返回 OleObject 物件，其中 Index 是物件名稱或編號。 在下面的示例中，刪除了 sheet1 中的 OLE 物件 1。

worksheets("sheet1").oleobjects(1).delete

在下面的示例中，刪除名為“listbox1”的 OLE 物件。

worksheets("sheet1").oleobjects("listbox1").delete

闡釋工作表上的 ActiveX 控制項的 OleObject 物件的屬性和方法是相同的。 這樣，通過使用控制項名稱，Visual Basic 可以訪問這些屬性。 在下面的示例中，選中核取方塊控制項“mycheckbox”，使其與活動單元格對齊，然後啟用該控制項。

with mycheckbox

value = true

top =activate

end with

有關詳細資訊，請參閱在工作表上使用 ActiveX 控制項。

worksheet(1).您可以直接對控制項的名稱進行 root 操作。

如 worksheet（1）。獲取該值。

您可以將 wb 變暗為工作簿，a&set wb = getobject（"檔案的完整路徑")with wb

for a = 1 to

if sheets(a).name = "四月" then.sheets(1).range().copy thisworkbook

名字"end with

具體操作需要通過檢視資料來完成。

本質是開啟的，只是窗戶是看不見的。

dimwbasworkbook

setWbGetObject（特定路徑 + 檔案）。

withwb...operationonwb)

endwith

falsesetwb=nothing

sheets("sheet3").cells(1,2)

窗體的第一行和第二列的內容命名為 sheet3。

在 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 = 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

如果附件完成，請詢問您是否有任何問題。

Alt+F8。

前兩個表是否具有不需要提取的固定名稱？

獲取第乙個工作表中 a1 的值（表名 aa），並將其分配給 xx=sheets（1）。[a1]

或者 x=sheets（“aa”）。a1]x=sheets(1).cells(1,1)x=sheets(“aa”).cells(1,1)

獲取工作表 1 中單元格 A1 的值：

1).value

通過VBA中的功能表（！）將當前檔案指標指向所選工作簿中的指定工作表。

引數說明：工作簿是工作簿的名稱，即檔案的名稱。

Worksheet 是工作表的名稱。

設定檔案指標後，可以操作指定檔案的指定工作表。

1.問題本身就是乙個問題，在excel中讀取所有資料是什麼意思？

2.使用陣列讀取excel資料是最科學的。

dim a()

a()=range("a1:d25")

3.讀取資料後應該對資料進行什麼樣的處理？

，j）表示第 I 行和第 J 列單元格中的資料，所有資料都可以通過迴圈讀出。

閱讀沒有錯，然後呢？