Excelワークシートのすべてのセルを文字列（VBA）として受け取ります

Question

基本的には、実行時に特定のExcelファイルを指すように促すExcelアプリケーションを作成しています。文字列、うまく動作します。どのようにするか分からないのは、アクティブなワークシートの範囲を選択し、各セルの値を1つの文字列に結合することです。

これは、これまでの私のコードです：

Option Explicit 

Sub locate_file() 

Dim file As String 
Dim sheet1_95 As String 
Dim theRange As Range 

'prompt user for location of other excel sheet' 
file = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx") 

'test input of location' 
Workbooks("testing input file.xlsx").Sheets("location").Activate 
Range("A1") = file 

'activate the workbook and sheet' 
Workbooks("95%.xlsx").Sheets("DT").Activate 

'Testing retrieving cells as string' 
Set theRange = Range("A2:A4") 

'how do i retrieve values in this range and combine them into 1 string?' 

End Sub 

Answer 1

'Testing retrieving cells as string' 
Set theRange = Range("A2:A4") 

'how do i retrieve values in this range and combine them into 1 string?' 
Dim c as int, x as int 
Dim strValue as string 
c = therange.rows.count 
strValue = vbnullstring 
for x = 1 to c 
strValue = strValue & theRange.cells(x,1).value 
next x 

Answer 2

私は何をするかどうかはわからないこととは対照的に（Application.InputBox機能を使用することにより、アクティブなワークシートに

を範囲選択しています）VBA.InputBoxへ：

dim r as range 
set r = application.inputbox("Select a range", Type:=8) 

---

各セルの値を1つの文字列に結合します。細胞をループすることで

：

dim c as range 
dim s as string 

for each c in r.cells 
    s = s & c.value 
next