2. 程式人生 > >VBA 從一個未開啟的Excel檔案中讀取資料到，已開啟的檔案中.

VBA 從一個未開啟的Excel檔案中讀取資料到，已開啟的檔案中.

阿新 • • 發佈：2019-01-01
Sub CommandButton2_Click()
''根據專案名稱 獲取部門名
'A8    顯示在B8中     c3--c40
Dim xDis AsInteger
Dim xNo AsInteger
Dim strProject  '專案名稱
Dim strDep '製造部門

 Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i AsInteger
   Application.ScreenUpdating =False'凍結螢幕，以防螢幕抖動
   myPath = ThisWorkbook.Path &"/"'把檔案路徑定義給變數
   
   myFile 
=Dir(myPath &"data.xls")            '依次找尋指定路徑中的*.xls檔案

xDis =40
   strname = ActiveWorkbook.Name
    Set AK = Workbooks.Open(myPath & myFile)     '開啟符合要求的檔案
For xNo =3To xDis

    strProject = Workbooks(strname).Worksheets("System").Range("A8").Value
    strDep = Workbooks(strname).Worksheets("System
").Range("B8").Value

  
     If (strProject = AK.Worksheets("二部").Range("C"&CStr(xNo)).Value) Then
        Workbooks(strname).Worksheets("System").Range("B8").Value ="二部"
        ExitFor
    EndIf
    
     If (strProject = Workbooks("data.xls").Worksheets("三部").Range("C"&CStr(xNo)).Value) Then
        Workbooks(strname).Worksheets(
"System").Range("B8").Value ="三部"
        ExitFor
    EndIf
    
     If (strProject = Workbooks("data.xls").Worksheets("四部").Range("C"&CStr(xNo)).Value) Then
        Workbooks(strname).Worksheets("System").Range("B8").Value ="四部"
        
        ExitFor
    EndIf

     If (strProject = Workbooks("data.xls").Worksheets("五部").Range("C"&CStr(xNo)).Value) Then
        Workbooks(strname).Worksheets("System").Range("B8").Value ="五部"
        ExitFor
    EndIf
    
Next xNo
 Workbooks(myFile).Close False
    Application.ScreenUpdating =True'凍結螢幕,此類語句一般成對使用

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

相關推薦

從資料庫中讀取資料，建立XML檔案並更新維護XML

public class OperateXML { /// <summary> /// 檔案全路徑 /// </summary> private string fullF

VBA 從一個未開啟的Excel檔案中讀取資料到，已開啟的檔案中.

Sub CommandButton2_Click()''根據專案名稱 獲取部門名'A8    顯示在B8中     c3--c40Dim xDis AsIntegerDim xNo AsIntegerDim strProject  '專案名稱Dim strDep '製造部門 Dim myPath$, myFi

python 從檔案中讀取資料，同時去除掉空格和換行

從檔案中讀取資料，同時去除掉空格和換行，程式碼如下 import numpy as np def sort(path): w = open(path,'r') l = w.readlines() col=[] for k in l: k = k.strip('\n')

使用RandomAccessFile這個類，從檔案中讀取資料，卻讀取不出來

請看下面這段程式碼，相關的問題我應經註釋了出來： package timemanager; import java.io.EOFException; import java.io.File; import java.io.FileNotFoundException; im

R從檔案中讀取資料，輸出檔案

看了幾天的書，終於到這一步了，說實話，用R來做統計，很少有人手動的去輸入那些數字，肯定是從別的地方匯入的，我們用來處理就可以了，所以到這裡才算是真正的入門，前面都是做基礎的練手。 我學習R從《R語言與統計分析》入手，第一個例子，從書上的例子，入手，為大家能夠快速入門。 在F

從Matlab .fig檔案中讀取資料，並重新繪圖

Matlab提供了強大的函式集合，可以從.fig檔案中讀取圖中的資料，並重新繪製圖形。如果原始資料丟失，我們可以從.fig檔案中恢復原始資料，並基於原始資料做進一步的處理。 以下是一個從兩個不同檔案

從hbase表1中讀取資料，最終結果寫入到hbase表2 ，如何通過MapReduce實現 ？

需要一： 將hbase中‘student’表中的info：name和info：age兩列資料取出並寫入到hbase中‘user’表中的basic：XM和basic：NL class ReadStudentMapper extends Table

從資料庫中取出資料，存放到陣列中，然後對資料進行分類顯示

<table width="280" id="zhangdan_wenzi" > <?php //food_typ id 將id存到陣列中 $sqlfood = "SELECT food_type.id FROM food_type ";

MapReduce功能實現四---小綜合(從hbase中讀取資料統計並在hdfs中降序輸出Top 3)

MapReduce功能實現系列： 方法一： 在Hbase中建立相應的表1： create 'hello','cf' put 'hello','1','cf:hui','hello world' put 'hello','2','cf:hui','h

鍵盤輸入到JTable單元格中的資料，重新整理到JTable中的問題

一個 swing.JTable 的表，各單元的值可以修改一個 Button 按  Button 後 jTable 內值賦給一個數組問題 ：修改jTable 的一個單元格後直接按Button， 這個單元的值沒有賦給陣列。      但是如果修改完後，在表格內其他的單元格點選一

SQL中where in的用法以及mybatis執行查詢語句，可以在plsql中查詢資料，但是在程式中查詢不到

首先我們要知道where是什麼：一個判斷符。在SQL操作中，控制只選擇指定的行。 in的其實歸類於特殊的比較運算子 expr1 between expr2 and expr3：表示expr1的值在expr2和expr3之間 expr in（expr2，expr3，expr4，

VBA 從一個Excel檔案複製一行資料到另一個Excel檔案

臨時用到VBA，做一個需求：把不在同一個檔案中的資料複製到一個檔案中。 新建過程，如下： Sub 複製行() Dim mybook As Workbook Set mybook =

VBA下彈框開啟excel檔案並讀取資料

Sub LoadExcelData()     Dim wkbk As Workbook  '定義一個工作薄     Dim myFileName As String '定義要讀取的檔案路徑     Dim dataRow  As Integer '定義資料的行     D

一個簡單的從txt檔案中讀取資料插入資料庫

一： 首先我們應該先·建一個Dynamic web project 工程。 二： 定義一個讀檔案操作 package com.what.files; 在這裡我們要用到用於讀取本地檔案中的位元組資料的FileInputStream，FileInputStream繼承了Inpu

springMVC從上傳的Excel檔案中讀取資料

package com.jun.util; import java.io.File; import java.io.FileInputStream; import java.io.IOException; import java.io.InputStream; import java.util.Arr

C# 選擇檔案、選擇資料夾、開啟檔案（或者資料夾） 路徑中獲取檔案全路徑、目錄、副檔名、檔名稱 追加、拷貝、刪除、移動檔案、建立目錄 修改檔名、資料夾名！！

https://www.cnblogs.com/zhlziliaoku/p/5241097.html 1、選擇檔案用OpenDialog OpenFileDialog dialog = new OpenFileDialog(); dialog.Multiselect = true;/

C#從資料庫中讀取二進位制流並生成檔案

下面以圖片檔案為例加以說明。從資料庫表 “圖片儲存”中讀取ID為1的圖片資料並生成圖片檔案。   MySqlConnection conn = new MySqlConnection("Server=localhost;Database=test;charset=utf8;U

獲取指定目錄下，指定副檔名的檔案（包含子目錄中的），把這些檔案的絕對路徑寫入到一個文字檔案中。

題目： 獲取指定目錄下，指定副檔名的檔案（包含子目錄中的），把這些檔案的絕對路徑寫入到一個文字檔案中。 思路： 1.必須深度遍歷 2.要在遍歷的過程中進行過濾，將符合條件的內容儲存到容器中 3.對容器中的內容進行遍歷並將絕對路徑寫入到檔案中 程式碼： import java.io

java實現賦值excel模板，並在新檔案中寫入資料，並且下載

/** * 生成excel並下載 */ public void exportExcel(){ File newFile = createNewFile(); //File newFile = new File("d:/ss.x

從檔案中讀取圖片，與從資料庫表中讀取圖片評測

一、在 d:\ 下建立 image 資料夾，再放10 張圖片， 名稱從 1.png 到 10.png . 二、先建立新庫 db1, 然後按下面指令碼建立初始環境： USE db1 GO IF OBJECT_ID('t_path') IS NOT NULL DROP TABLE t_pat